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ABSTRACT 


A  previously  developed  man-machine  model  which  is  capable  of  simulating 
closed  man-machine  systems  operated  by  crews  of  from  4  to  20  members  was 
substantially  modified  so  as  to  allow  its  use  for  system  reliability  and  system 
availability  predictive  purposes.  The  resultant  new  model  is  capable  of  generat¬ 
ing  new  system  availability  and  reliability  measures  based  on  human  and  equip¬ 
ment  performance  resulting  from  the  computer  simulation  r\ms. 

A  description  of  the  revised  computer  model  including  the  changes  is  pre¬ 
sented,  together  with  the  model  flowchart  and  user  information. 

The  degree  of  success  in  producing  rational  output  achieved  during  a  set  of 
basic  runs  using  the  revised  model  and  program  is  discussed. 
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INTRODUCTION  AND  BACKGROUND 


General  Overview 

The  integration  of  human  reliability  (HR)  and  equipment  reliability  (ER)  data 
into  a  single  comprehensive  model  for  predicting  system  reliability  (SR)  has  been 
one  of  the  major  expressed  concerns  of  Navy  system  planners  (Blanchard,  1972). 
Efforts  to  use  currently  available  models,  however,  have  not  met  with  desired  suc¬ 
cess  levels.  An  attempt  was  made,  for  example,  to  include  human  performance 
data  in  the  WSEIAC  (1965)  model,  even  though  an  explicit  basis  was  not  originally 
provided  in  the  model  for  such  consideration.  As  noted  by  Blanchard  (1972)  ,  , 

attempting  to  force  human  performance  characteristics  relative  to  a  particular 
system  design  into  an  available  structure  provided  by  a  model  developed  to  ac¬ 
count  for  equipment  consideration  is  extremely  difficult  and  grossly  inadequate.  " 
Similarly,  efforts  to  incorporate  human  performance  data  into  the  GEM  (Orbach, 
1968)  and  RAMA  (Hamilton  &  Bennett,  1970)  models  have  not  as  yet  proved  useful. 
Moreover,  even  when  separately  noted,  the  contributions  of  HR  and  ER  to  SR  have 
not  been  quantified  in  an  easily  generalizable  fashion.  The  result  makes  extrapo¬ 
lations  to  new  environments/ equipments/personnel  difficult  (Smith  et  al.  ,  1970). 

This  problem  is  primarily  a  result  of  the  absence  of  a  clear  and  concise  statement 
defining  the  separate  characteristics  and  properties  relevant  both  to  ER  determina¬ 
tion  and  HR  determination  and  the  development  of  a  unifying  strategy  for  incorporat¬ 
ing  them  into  an  SR  framework.  While  a  number  of  equipment  reliability  models 
are  currently  available  (e.  g. ,  MIL-STD-756),  there  has  only  been  limited  work  in 
human  reliability  modeling  (Siegel  &  Federman,  1974,  Federman  &  Siegel,  1973). 


Prior  NAVSHIPS  Sponsored  Efforts 

Over  the  past  several  years.  Applied  Psychological  Services  has  been  engaged 
in  developing,  testing,  and  demonstrating  a  family  of  man-machine  computer  simula¬ 
tion  models.  Considerable  emphasis  has  been  given  in  these  models  to  the  HR  as¬ 
pects.  The  earliest  model  has  also  been  successful  in  showing  the  utility  of  the  sto¬ 
chastic  simulation  approach  for  predicting  human  reliability  in  the  electronic  equip¬ 
ment  maintenance  context  (Siegel  &  Federman,  1974).  The  results  of  this  prior  work 
point  out  and  support  the  feasibility  of  the  general  approach  for  HR  prediction  pur¬ 
poses.  On  the  basis  of  this  prior  effort  it  seemed  that  a  similar  approach  to  the  pre¬ 
diction  of  HR  in  all  contexts  (electrical,  electromechanical,  mechanical,  and  elec¬ 
tronic  maintenance,  as  well  as  equipment  operation)  offered  considerable  promise. 

However,  the  stochastic  simulation  model  employed  previously  for  HR  predic¬ 
tion  is  limited  to  simulation  of  tasks  performed  by  one  or  two  operators  and  is  fur¬ 
ther  limited  because  it  is  not  easily  adaptable  for  total  system  simulation  purposes. 
Accordingly,  a  model  was  sought  which  would  allow  simulation  of  the  actions  and  be¬ 
haviors  of  larger  groups  of  men  and  total  equipment  systems.  A  further  prerequisite 


in  such  a  model  is  the  ability  to  accept  and  interact  with  ER  data  so  as  to  yield  an  in'' 
tegrated  SR  numeric.  Quite  obviously,  the  output  should  be  analyzable  into  the  con¬ 
tributors  to  high  or  low  SR. 

A  second  Applied  Psychological  Services'  large  crew  model  was  also  consid¬ 
ered.  This  model  simulated  psychosocial  and  performance  interactions  for  groups 
of  operators  selected  from  crews  of  up  to  90  men.  Predictions  made  by  the  model, 
mostly  based  on  HR  considerations,  include  system  effectiveness,  crew  morale  and 
cohesiveness,  operator  orientation,  sickness,  and  proficiency.  In  this  model,  each 
day  of  a  multiday  mission  is  simulated  to  yield  crew-mission  evaluation. 

However,  work  with  this  model  indicated  that  it  was  not  appropriate  for  inter¬ 
mediate  size  crews,  because  as  crew  size  decreases,  so  does  group  size,  mitigating 
the  applicability  of  model  logic  based  on  HR  group  theoretic  concepts. 

Another  model  developed  and  validated  at  Applied  Psychological  Services  un¬ 
der  Office  of  Naval  Research  sponsorship  was  considered.  This  model,  called  the 
intermediate  size  model  (ISM),  has  been  fully  described  elsewhere  (Siegel,  Lautman, 

&  Wolf,  1972;  Siegel,  Wolf,  &  Cosentino,  1971;  Siegel,  Wolf,  &  Fischl,  1969).  Ex¬ 
amples  of  variables  included  in  the  model  are:  crewman  proficiency,  crew  morale, 
level  of  aspiration,  fatigue,  and  stress. 

The  ISM  simulates  the  acts  and  behaviors  of  individuals  and/or  groups  of  per¬ 
sons  as  they  perform  the  tasks  required  for  the  operation  of  a  man-machine  system. 
While  the  model  can  also  simulate  tasks  performed  by  a  smaller  number  of  persons, 
its  primary  advantage  is  its  ability  to  simulate  teams  of  4  to  20  mean.  As  such,  it 
complements  the  one  man  -  two  man  model  (Siegel  &  Wolf,  1962;  1969)  and  the  large 
size  crew  models  which  had  been  previously  developed  and  validated  at  Applied  Psy¬ 
chological  Services. 

As  in  the  large  crew  model,  the  approach  to  the  problem  of  crew  simulation  in 
the  ISM  is  through  the  formulation  of  a  representation  which  simulates  group  activity 
and  which  yields  operational  (workload)  measures,  as  well  as  measures  of  man-ma¬ 
chine  system  performance  efficiency.  Because  the  model  is  to  be  used  in  simulating 
difficult  and  untried  missions,  in  which  the  operators'  physical  and  mental  limitations 
may  plan  an  important  part,  original  emphasis  in  ISM  development  was  placed  on  hu¬ 
man  or  operator-oriented  variables.  Nevertheless,  the  more  ordinary  operational 
variables  (the  amount  of  time  worked  by  operators,  status  of  supplies,  etc.  )  are  also 
included.  It  has  been  found  helpful  to  consider  the  separation  of  the  principal  model 
variables  into  these  two  categories:  psychological  or  operator  oriented  variables,  and 
operational  variables.  Examples  of  psychological  variables  are  competence,  charac¬ 
teristic  work  pace,  physicaT capability,  aspiration  level,  stress  tolerance,  and  state 
of  fatigue  of  the  operator.  Examples  of  operational  variables  simulated  are  level  of 
consumables,  performance  time  allowances,  task  essentiality,  and  extra  work  re¬ 
quirements  (overtime). 


In  all  of  these  models,  an  analysis  of  the  task  or  mission  to  be  simulated  is 
required  prior  to  simulation.  This  analysis  provides  input  data  to  the  computer. 
These  data,  together  with  information  on  equipment,  personnel,  emergencies,  and 
the  like  are  prepared  for  computer  processing  in  accordance  with  a  program  which 
implements  the  models  logic.  Under  program  control,  the  computer  starts  at  mis¬ 
sion  time  zero  and  simulates  the  crew’s  performance  of  each  unit  of  work  or  occur¬ 
rence  during  the  mission. 

To  date,  it  appears  that  the  attempt  to  include  human  behavioral  and  social 
interactive  variables  in  determining  system  effectiveness  has  been  limited  to  the  ef¬ 
forts  of  Applied  Psychological  Services.  No  other  model  currently  available  attempts 
to  account  for  and  predict  human  behavior  in  as  detailed  and  mathematically  explicit  a 
fashion.  This  has  been  true  even  though  it  has  been  estimated  (Blanchard,  1972) that 
over  a  20  year  system  life  cycle,  80  per  cent  of  the  cost  in  that  period  can  be  assign¬ 
ed  to  personnel.  It  would  appear,  then,  that  the  need  for  SR  models  which  include 
personnel  related  variables  is  apparent  and  that  the  ISM  provides  such  a  framework. 
Furthermore,  the  logic  of  the  ISM  facilitates  the  extraction  of  both  equipment  related 
and  human  related  factors  as  they  are  involved  in  system  performance  effective¬ 
ness. 


Additionally,  it  was  determined  that  the  ISM  could  be  modified  so  as  to  satis¬ 
fy  each  of  a  number  of  characteristics  and  properties  required  in  a  system  reliabil¬ 
ity  oriented  model. 

The  present  report  describes  the  entire  model  including  these  modifications 
and  as  such  is  self  contained.  It  also  presents  the  extent  of  success  this  resultant  mod 
el  has  demonstrated  in  initial  model  testing  simulation  runs. 

The  approach  adopted  was  to  take  the  ISM,  which  is  principally  HR  oriented, 
and  to  augment  its  basic  capabilities  with  additional  features  such  as: 


•  operator  induced  equipment  failures 

•  motion  sickness  and  its  effects 

•  equipment  performance  measures 

•  shift  simulation  capability 

•  increased  tracking  of  uses  of  consumables  including 

spare  parts 

•  enhanced  summarization  so  as  to  yield  measures  of 

equipment,  human,  and  system  reliability 

•  simulation  of  a  related  group  of  events,  called  a  ’’family,  ” 

to  yield  increased  simulation  detail 

•  generalization  of  model  and  extension  of  limits 

•  consideration  of  equipment  reliability  by  four  major 

equipment  types 

•  modification  of  equipment  repair  time  calculation 

•  degradation  of  performance  adequacy  on  emergency  and  on 

repair  events  when  such  events  take  longer  than  a  target 
time  to  complete 
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The  ISM,  as  modified  for  consideration  of  ER,  HR,  and  SR  determination, 
allows  answering  questions  relative  to  a  specific  system  such  as: 


•  What  is  its  ER  ? 

•  What  is  its  HR? 

•  Which  components  of  ER  contribute  most  to  unreliability? 

•  Which  components  of  HR  contribute  most  to  unreliability? 

•  What  changes  in  equipment  will  lead  to  an  increase  in  ER? 

•  What  personnel  changes  will  increase  HR? 

•  What  behavioral  variables  contribute  most  to  HR? 

•  What  part  does  ER  and  HR,  respectively,  contribute  to  SR? 

•  What  system  design  changes  will  best  contribute  to  an  in¬ 

crease  in  reliability? 

•  How  does  crew  proficiency  affect  HR?  SR? 

•  What  are  the  effects  of  such  items  as  motion  sickness, 

fatigue,  morale,  level  of  aspirations,  etc.  ,  on  HR?  on  SR? 

Go  al  s 


The  balance  of  this  chapter  contains  a  description  of  the  various  goals  set  for 
the  enhancement  work  in  terms  of  features  and  characteristics  required  of  the  result¬ 
ing  model.  General  descriptions  are  also  included  of  the  approach  taken.  Specific  in¬ 
formation  on  model  logic  changes,  and  their  impact  on  the  ISM  computer  program  are 
presented  in  Chapter  II. 


Numerical  Estimate  of  Reliability 

Perhaps  the  most  critical  requirements  of  a  HR  model  is  the  ability  to  provide 
a  numeric  defining  HR  in  a  manner  which  can  be  compounded  with  ER  data.  This  com¬ 
pounding  should  result  in  a  summary  numeric  defining  the  total  SR.  The  importance  • 
of  this  property  was  noted  by  Blanchard  (1972),  who  summarized  the  statements  of  his 
panel  of  model  users  as  follows;  "There  was  a  concensus  (sic)  on  the  desirability  of  in¬ 
tegrating,  incorporating,  or  in  some  way  combining  human  reliability  models  with 
equipment  reliability  models"  and  "...  attention  should  be  devoted  to  the  statistical 
compatibility  of  human  error  rate  data  and  equipment  failure  rate  data  which  might 
in  some  way  be  combined  to  provide  an  overall  output  reliability  index.  " 

Accordingly,  ISM  was  modified  so  as  to  allow  separate  summary  numerics  re¬ 
flecting  both  the  reliability  of:  (1)  equipment  (and  its  "performance"  during  the  simu¬ 
lation)  and  (2)  humans  and  their  performance.  These  numerics  are  based  on  a  com¬ 
mon  metric  and,  as  such,  may  be  compounded  to  give  an  overall  estimate  of  SR.  The 
separate  identification  of  the  two  reliability  numerics  allows  the  quantification  of  the 
contribution  to  SR  of  the  two  major  system  components.  The  results,  accordingly. 


allow  identification  of  the  component  which  might  be  most  advantageously  modified  so 
as  to  provide  the  greatest  improvement  in  overall  SR. 


Characteristics  of  the  Numeric 

In  order  to  arrive  at  an  overall  estimate  for  ER,  traditionally,  single  compo¬ 
nent  reliabilities  are  expressed  probabilistically  and  are  compounded.  An  an  analo¬ 
gous  fashion,  it  has  been  suggested  that  HR  be  generally  conceived  as  being  a  compos¬ 
ite  index.  Meister  (1970),  for  example,  noted  that  .  .  since  the  reliability  prediction 
(ER)  is  formulated  in  probabilistic  terms,  the  HR  technique  must  be  formulated  in  com¬ 
parable  terms.  Meister  also  observed  that  .  .  it  will  be  necessary  to  deal  with  the 
likelihood  of  events  occurring  over  a  series  of  performances.  Somewhat  more  gen¬ 
erally,  it  seems  necessary  to  deal  with  the  set  of  events  which  constitute  performance 
as  well  as  over  a  series  of  performances  of  the  set.  This  approach  possesses  the  ad¬ 
vantage  of  identifying  the  specific  components  contributing  to  unreliability  which  de¬ 
grade  overall  HR.  System  designers,  among  others,  would  be  able  to  investigate  on 
an  ”event-by-event”  basis  where  major  improvements  either  in  the  man-machine  in¬ 
terface  itself  or  in  the  introduction  of  some  form  of  performance  aiding  would  best 
augment  HR  and,  consequently,  SR.  By  an  ’’event”  in  the  HR  sense  is  meant  a  com¬ 
ponent  of  the  overall  task  such  as  ’’detection”  in  a  sonar  attack  sequence. 

As  a  further  requirement  within  this  approach,  Blanchard  (1972)noted  in 
his  survey  that  ”.  .  .  most  respondents  indicated  that.  .  ,  use  of  single-value  perform¬ 
ance  estimates  including  HR  indices.  ,  ,  would  be  inadequate  for  their  needs.  ”  This 
conclusion  was  reached  from  an  expressed  desire  among  his  respondents  for  a  quan¬ 
tification  of  the  distributions  (as  well  as  tolerance  limits)  surrounding  the  perform¬ 
ance  estimates.  This  desire  is  analogous  to  the  synthesizing  of  distributions  from 
component  test  data  as  involved  in  a  determination  of  system  reliability,  as  described 
by  Fagen  and  Wilson  (undated).  Similar  data  for  the  components,  if  not  for  the  whole 
task,  in  an  HR  determination  would  also  be  desirable. 

Accordingly,  it  seems  that  the  underlying  components  of  HR  in  a  given  system 
should  be  identified  and  measured  on  a  common  metric  (probability  of  success),  al¬ 
lowing  both  a  measure  of  overall  HR  as  well  as  the  identification  of  the  components  of 
the  final  index.  Distributions  of  values  analogous  to  MTBF  distributions  will  also  be 
obtained,  wherever  possible.  Where  distributions  are  available,  compounding  might 
require  convolution  of  mathematical  functions. 


Level  of  Specificity 

One  of  the  key  issues  in  HR  determination  is  the  level  of  specificity  required. 
Balaban  and  Costello  (1964)  concluded  that  "There  can  .  .  .be  no  general  criterion  for 
the  level  at  which  a  system  should  be  defined;  nor  can  general  ground  rules  be  formu¬ 
lated.  Each  assessment  must  dictate  its  own  criteria.  ”  Likewise,  no  uniform  agree¬ 
ment  among  model  users  on  this  important  question  was  found  by  Blanchard  (1972). 


Dunnette  et  al.  (1972),  in  discussing  the  issues  involved  in  the  development  of 
a  Naval  Personnel  Status  Index  (NPSI)  raised  a  problem  somewhat  similar  to  that  con¬ 
sidered  here- -the  level  of  specificity  necessary  for  the  development  of  an  index  of 
HR.  They  suggested  that  the  basic  data  system  necessary  for  the  development  of  their 
NPSI  should  focus  on  tasks  or  functions  as  the  primary  unit  of  analysis.  In  view  of  the 
difficult  effort  involved  in  the  development  of  a  data  store  type  of  system  and  possible 
user  resistance  to  its  employment  (Blanchard,  1972),  the  HR  metric  focused  in  its  lev¬ 
el  of  analysis  on  tasks  and/or  functions.  In  ER  determination,  the  level  of  specificity 
was  selected  at  the  equipment  level.  The  ER  for  maintenance  of  all  types  of  equipment 
(electrical,  electromechanical,  mechanical  and  electronic),  as  well  as  for  equipment 
operation,  was  also  provided  for. 

Sensitivity  and  Robustness 

While  it  is  desirable  that  both  the  overall  ER  and  HR  indices  of  the  model  be 
sensitive  to  shifts  in  their  respective  components,  subtle  shifts  should  give  rise  to 
small  or  no  changes  in  the  major  index.  In  general,  each  index  should  be  robust  to 
minor  day-to-day  fluctuation  in  magnitude  and/or  direction  of  their  components.  Ad¬ 
ditionally,  changes  in  the  index  should  not  be  time  dependent  in  and  of  itself  (Bryan, 
1973). 


Model  Reliability,  Validity,  and  Generality 

The  first  requirement  of  any  model  is  that  it  be  reliable;  that  is,  its  predic¬ 
tions  must  be  stable.  With  stochastic  models,  this  stability  is  reflected  in  the  dis¬ 
tribution  of  obtained  values  being  consistent  over  different  model  runs.  Following 
the  establishment  of  model  reliability,  model  validity  can  then  be  ascertained.  Valid¬ 
ity  is  defined  as  the  demonstration  that  a  model  is  measuring  what  it  purports  to  meas¬ 
ure.  With  stochastic  models,  predictive  validity  can  be  demonstrated  when  the  dis¬ 
tribution  of  model  derived  values  reflect  the  expected  (actual)  distribution  to  within  ac¬ 
ceptable  levels  of  agreement.  Expected  distributions  can  be  obtained  from  historical 
records,  theoretical  derivations,  etc.  Since  both  reliability  and  validity  are  quanti¬ 
fiable  constructs,  it  is  necessary  to  define  a  model's  reliability  or  validity  in  a  statis¬ 
tical  sense.  The  issue  to  be  considered  is  one  of  more  or  less  reliable  and/ or  valid 
rather  than  a  simple  yes/no  dichotomous  decision.  Validity,  in  the  form  of  success 
or  failure  of  performance,  however,  must  be  clearly  stated  (Meister,  1970). 


The  validity  of  a  model  is  a  function  of  its  generality.  As  generality  increases, 
validity  decreases  for  any  given  situation.  A  balance  between  validity  and  generality 
must  be  forged  in  most  stochastic  model  development  efforts. 


In  addition  to  the  properties  and  characteristics  noted  above,  other  features 
mentioned  by  others  were  established  as  desirable  objectives  in  enhancing  model  util¬ 
ity.  First,  a  model  should  be  easily  utilized  by  nonspecialists  (Meister,  1970).  In¬ 
put  requirements  and  outputs  should  be  as  simple  and  nontechnical  as  possible,  but 
experience  has  shown  that  models  which  tend  to  require  a  great  deal  of  sophistication 
on  the  part  of  the  user  have  not  received  wide  application.  Similarly,  model  input 
requirements  (e.  g. ,  formats)  should  be  set  up  in  a  manner  that  is  compatible  with 
both  typical  engineering  and  human  factors  analyses.  To  the  extent  that  a  model  ex¬ 
hibits  parallel  structure  in  its  requirements  for  engineering  and  human  input  data, 
the  less  complicated  will  be  the  input  data  task  requirements. 

To  the  extent  possible,  a  model  should  make  use  of  available  data  or  data 
which  can  be  developed  from  usually  available  data  via  transformations.  Once  again, 
the  less  the  burden  on  the  model  user,  the  greater  is  the  expected  use  of  a  model. 

Additionally,  a  goal  was  established  to  develop  a  model  general  enough  to  be 
applicable  during  system  development,  as  well  as  during  final  system  performance 
assessment  (Siegel,  1973  ;  Leuba,  1968;  Meister,  1970).  This  use  of  a  model  will 
probably  be  critical  in  evaluating  overall  utility.  As  Blanchard  (1972)  has  noted,  one 
of  the  most  frequent  problems  facing  Navy  planners  is  deciding  between  two  (or  more) 
alternative  systems  while  the  systems  are  in  early  planning  stages.  The  model  should 
allow  planners  in  the  early  phases  of  system  development  to  compare  relative  relia¬ 
bility  or  values  of  some  similar  effectiveness  measure  for  competing  systems. 

Finally,  a  model  should  include  consideration  of  qualitative  and  quantitative 
manning  requirements  so  as  to  allow  testing  of  expected  performance  levels  of  crews 
of  different  skills  and  proficiencies  within  skills. 

Fleishman  et  al.  (1973)  have  observed  that ’^The  parallel  specification  of  the 
elements  contributing  to  human  reliability  in  a  manner  analogous  to  that  performed 
for  machine  components  by  engineers  is  a  necessary  prerequisite  for  predicting- over¬ 
all  system  reliability.  "  The  adaptation  of  the  ISM  is  designed  to  determine  the  ER 
and  HR  components  of  SR,  as  well  as  SR.  This  approach  clearly  follows  that  speci¬ 
fication,  as  development  of  the  ER  and  HR  numerics,  involves  determination  of  as¬ 
pects,  properties,  and  characteristics  of  each.  It  also  involves  determination  of  how 
these  can  be  dealt  with  in  a  parallel  manner  and  their  final  integration  into  predicting 
SR  without  violating  the  typical  assumptions  underlying  each. 

Further  Relationships  Among  the  APS  Models  and  Related  Efforts 

One  question  which  might  be  raised  is  that  of  the  relationships  or  continuity  of 
variables  from  one  model  to  another  in  the  series  of  three  Applied  Psychological  Serv¬ 
ices'  models  described.  In  an  attempt  to  respond  to  this,  and  to  indicate  the  relation¬ 
ship  of  the  variables  in  the  ISM  to  the  others,  the  following  summarization  presents 
the  principal  variables,  functions,  or  concepts  of  each  of  the  three  models. 

Although  no  specific  experiments  have  been  performed  to  determine  the  con¬ 
tinuity  of  predictions  made  by  the  three  models  due  to  their  similarity,  it  is  expected 
that  reasonable  output  overlap  and  trend  similarity  would  result  if  the  same  mission 
could  be  simulated  on  the  different  model. 
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Principles  Leading  to  Quantification  of  Variables 

Since  the  ISM  is  an  elaboration  of  an  extant  model  and  its  foundations  have  al¬ 
ready  been  documented,  this  report  will  not  dwell  on  the  mechanics  of  selecting  or 
quantification  of  the  model’s  variables.  Siegel,  Wolf,  and  Fischl  (1969)  present  an 
extensive  discussion  on  the  following  variables  within  the  model: 

physical  capability 

competence 

fatigue 

physical  incompatibility 
working  pace 
level  of  aspiration 
psychological  stress 
confidence 

This  prior  work  includes  literature  references  to  studies  considered  pertinent 
and  includes  full  descriptive  and  analytic  logic.  Particularly  significant  relationships 
are  described  and  instances  of  agreements  of  concepts  with  specific  literature  sources 
are  cited. 

Briefly,  the  general  policy  followed  in  the  selection  and  utilization  of  variables 
for  use  in  the  ISM,  as  well  as  the  other  APS  models,  is  summarized  by  the  following; 

1.  from  the  principal  features  of  the  model  and  its  known 
goals,  select  one  or  more  theories/approaches  of 
greatest  importance,  e.  g.  ,  small  group  theory,  en¬ 
vironmental  considerations,  extent  of  importance  of 
equipment  performance 

2.  with  these  guidelines,  select  specific  variables  on  the 
basis  of  literature  studies,  prior  model  results, 
and/or  best  judgment 

3.  identify  those  factors  on  which  selected  variables 
should  depend,  i.  e. ,  the  relationships  among  vari¬ 
ables 

4.  extract  from  the  literature  the  qualitative  analytical 
expressions  which  link  the  variables  one  to  another, 
fitting  trend  lines  to  known  or  estimated  relation¬ 
ships 

5.  scale  the  variables  and  expressions  to  achieve  con¬ 
sistency  throughout  the  model 
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CHAPTER  II 


THE  MODEL  AND  THE  VARIABLES  SIMULATED 


Introduction 

The  model  makes  provision  for  simulating  characteristics  of  the  individual 
crew  members  of  a  system  and  the  equipment  they  operate.  Each  characteristic  is 
altered  as  a  function  of  events  that  transpire  during  a  simulated  mission,  and  each 
in  turn  exerts  an  influence  on  mission  events.  In  general,  the  HR  oriented  charac¬ 
teristics  subsume  physical  and  mental  performance  factors,  personality  and  motiva¬ 
tional  factors,  learning  and  reinforcement,  and  aspiration  and  leadership. 

A  crew  of  4  to  20  men  is  modeled.  The  ER  factors  include  equipment  repairs 
by  type,  sea  state,  intermittent  failures,  up  and  down  time  factors,  and  equipment 
performance  measures.  The  activities  to  be  assigned  to  and  performed  by  the  crew 
are  itemized  into  specific  events  for  each  day  of  a  multiday  mission.  This  informa¬ 
tion,  together  with  data  on  average  personnel  performance,  on  equipments  to  be  oper¬ 
ated,  and  on  emergencies  which  may  occur,  are  provided  in  coded  form  to  the  high 
speed  digital  computer.  These  data  are  manipulated  for  each  scheduled  event,  each 
equipment  repair  event  (or  event  family),  and  each  emergency  which  is  encountered. 
The  major  segments  of  the  model  are: 

1.  crew  formation 

identification  of  each  crew  member  and  assignment  of 
specific  capabilities  and  characteristics  to  each  crew 
member 

2.  daily  schedule  generation 

preparation  of  itemized  events  to  be  completed  on  each 
day  of  the  mission 

3.  personnel  assignment 

selection  of  individual  men  to  accomplish  the  work  of 
each  event  with  option  to  use  a  shift  assignment  logic 

4.  event  simulation 


calculation  of  conditions  existing  during  each  event  and 
the  determination  of  how  well  and  how  quickly  the  assigned 
men  accomplish  the  work  which  constitutes  the  event 


5.  personnel  update 

modification  of  the  numerical  status  of  human  and 
equipment  variables  as  a  result  of  group  perform¬ 
ance  during  the  event 


6.  results  recordinf 


selection  and  display  of  the  value  of  key  variables 
and  summarized  conditions  as  desired  (i.  e. ,  for 
each  event,  each  day,  each  mission  iteration,  and 
a  summary  of  all  iterations) 


Figure  2-1  presents  a  gross  view  of  the  flow  logic  sequencing.  A  more  de¬ 
tailed  logical  flow  diagram  of  the  model  is  included  as  Appendix  C.  The  two  flow 
charts  are  compatible  in  that  the  key  nodes,  identified  by  circles  containing  lower 
case  letters,  represent  corresponding  points  in  the  model  and  program.  The  com¬ 
puter  program,  written  in  the  FORTRAN  IV  language,  implements  these  flow  charts 
and  the  sequenced  logic,  as  described.  To  facilitate  both  descriptive  and  anal3d:lc 
program-to-model  interaction,  this  report  will  utilize  FORTRAN  variable  names. 
Appendix  A  to  this  report  presents  a  list  of  the  variable  names  and  definitions. 

Missions  of  durations  of  up  to  30  days  can  be  simulated.  A  mission  to  be 
simulated  may  be  composed  of  up  to  300  types  of  events,  and  200  of  any  of  these 
types  may  be  scheduled  on  any  given  day.  The  events  are  performed  by  crews  of 
no  more  than  20  men  who  are  in  up  to  10  different  personnel  specialties  and  who 
may  be  in  four  command  levels.  The  crew  may  operate  up  to  30  types  of  equipment 
and  may  encounter  up  to  10  types  of  emergencies.  Events  are  performed  by  from 
1  to  20  men  selected  from  the  crew  (or  shift)  to  form  a  group  which  accomplishes 
the  specific  event. 


r 
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FIGURE  2-1.  GENERAL  FLOW  LOGIC  DIAGRAM  OF  MODEL 
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FIGURE  2-1.  (CONT.) 


BEGIN  SIMULATION  FOR  EACH  EVENT 
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FIGURE  2-1.  (CONT.) 
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FIGURE  2-1.  (CONT.) 
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Six  sets  of  data  are  required  prior  to  use  of  the  model.  The  individual 
items  of  data  in  each  of  these  sets  are  given  in  the  various  tables  in  Appendix  B. 

A  change  was  made  in  the  method  of  handling  scheduled  event  data.  Instead  of  pro¬ 
viding  input  data  for  up  to  80  events  each  day,  the  model  was  expanded  and  general¬ 
ized  to  allow  the  task  analyst  to  specify  (and  provide  input  data  for)  up  to  300  event 
types.  Any  of  these  can  be  scheduled  at  any  time  of  any  day.  The  input  data  for 
event  types  is  defined  in  Appendix  B.  Also,  for  each  day  of  the  mission,  the  task 
analyst  develops  event  sequence  data  for  up  to  200  scheduled  events  planned  to  be 
performed  that  day.  These  task  sequence  data,  specified  in  Appendix  B  (each  refer- 
ing  to  one  of  the  predefined  task  types)  constitute  the  crew  daily  workload. 

All  times  in  the  simulation  are  given  to  a  precision  of  hundredths  of  an  hour. 
Each  24  hour  day  is  simulated,  and  time  is  counted  from  0000  to  23.  99.  A  subset 
of  the  data  items  for  scheduled  events  is  required  to  describe  an  unscheduled  repair 
of  an  equipment  or  to  describe  an  occurrence  of  an  emergency.  Repair  events  are 
also  called  out  by  type  of  event. 

Note  here  that  the  model  now  distinguishes  between  incidence  of  hard  equip¬ 
ment  failure  (a  condition  in  which  the  equipment  is  completely  inoperable  as  a  re¬ 
sult  of,  for  example,  a  component  failure)  and  the  incidence  of  intermittent  failure 
(a  condition  in  which  no  "repair"  is  accomplished  but  which  results  in  a  reduction 
of  performance  "score"  for  the  equipment). 

The  next  set  of  data,  relating  to  personnel  characteristics  and  qualities  for 
the  mission,  consists  of  the  elements  itemized  and  described  in  Appendix  B.  The 
first  is  average  population  body  weight  (WT).  If  a  specific  system  is  being  simu¬ 
lated  in  which  the  body  weights  of  its  personnel  are  known  to  differ  from  those  of 
the  general  population  or  the  general  military  population,  the  mean  weight  and 
standard  deviation  of  that  specific  system's  manning  tables  become  the  input  data. 
For  all  other  circumstances,  the  mean  weight  and  standard  deviation  may  be  ob¬ 
tained  from  any  appropriate  anthropometric  tabulation  (e.  g. ,  Damon,  Stoudt,  & 
McFarland,  1966;  Webb,  1964;  Hertzberg,  Daniels,  &  Churchill,  1950;  etc.  ).  The 
crosstraining  probability  table  provides  the  likelihood  values  of  a  man  of  each  type 
having  been  crosstrained  in  each  secondary  specialty. 

Appendix  B  lists  the  parameters  of  the  model.  This  model  monitors  the  lev¬ 
el  of  up  to  20  selected  consumables.  Of  these  20,  10  may  be  monitored  on  a  unit  ex¬ 
penditure  basis  and  10  may  be  monitored  on  a  rate  of  expenditure  (e.  g. ,  100  gallons 
per  hour)  basis.  One  parameter  input  specifies  the  initial  inventory  of  consumables 
at  the  beginning  of  the  mission  in  arbitrary  units.  A  secondary  input  specifies  the 
consumable  threshold  values.  When  the  value  of  one  or  more  consumables  drops 
below  the  selected  threshold,  those  events  which  require  this  consumable  (except 
repairs  and  emergencies)  are  ignored.  The  parameter  N  provides  for  preselecting 
the  number  of  simulations  to  be  performed.  Other  parameters  are  described  later 
in  this  chapter  as  their  influence  is  noted  during  the  processing  flow. 


FORTRAN  nomenclature  for  other  data  items,  constants,  arrays  and  vari¬ 
ables  complete  Appendix  B.  Discussion  of  recordings  of  results  in  various  print¬ 
out  options  is  postponed  to  the  end  of  the  event  simulation  discussion. 


Crew  Formation  and  Initial  Value  Selection 

The  processing  begins  at  circle  a  of  Figure  2-1  or  Appendix  C.  The  num¬ 
ber  of  men  in  the  crew  is  determined  totally  and  by  command  echelon  using  the  MEN 
[NT,  ICE(M)]  data  provided  as  input  from  the  personnel  data.  Each  man  is  assign¬ 
ed  to  one  of  four  command  echelon  values: 


1.  officer 

2.  senior  petty  officer 

3.  junior  petty  officer 

4.  unrated 

Then,  each  crew  member  is  assigned  a  primary  specialty  or  type  number,  IPS(M), 
by  the  computer.  Next,  using  this  assignment  and  the  personnel  crosstraining  table, 
PTT[IT,  IPS(M)],  from  the  set  of  personnel  input  data,  each  crew  member  is  as¬ 
signed  a  secondary  specialty,  ISS(M).  Values  of  IPS(M)  and  ISS(M)  range  from  one 
to  30,  corresponding  to  the  30  possible  types  of  personnel. 

Crew  members  of  different  levels  of  physical  capability  are  simulated.  The 
physical  capability  variable,  as  employed,  is  intended  to  summarize  and  represent 
the  physiological/ anthropometric  characteristics  which  the  crew  member  brings  to 
his  job. 


A  normalized  physical  capability  value,  PC(M),  is  now  assigned  to  each  man. 
It  is  the  beginning  of  the  mission  value  calculated  using  the  mean  and  sigma  of  body 
weight  of  the  total  population  (personnel  input  data)  based  on  a  normal  distribution. 
Here,  as  well  as  elsewhere  in  this  report,  RD  denotes  a  random  deviate,  i.  e. ,  a 
number  drawn  at  random  from  the  normal  distribution  with  a  mean  of  zero  and  a 
standard  deviation  of  unity.  A  crew  member  of  average  weight  will  have  a  value  of 
PC(M)  =  1. 

The  parameter  CALRY  represents  the  energy  consumption  of  the  average 
crew  member  in  a  day.  Using  each  man^s  normalized  body  weight  as  a  multiplier 
with  the  parameter  CALRY,  a  specific  value  is  calculated  indicating  the  average 
number  of  calories,  CAL(M),  which  each  man  normally  could  be  expected  to  expend 
each  day.  A  similar  but  short  term  value  of  energy  or  power  output  (consumption) 
rate,  PWR(M),  is  calculated  for  each  crew  member,  again  using  PC(M)  as  a  multi¬ 
plier.  The  parameter  PWRRT,  the  average  caloric  expenditure  of  all  crew  mem¬ 
bers  over  a  strenuous  one  hour  task,  is  multiplied  by  the  physical  capability  value 
PC(M)  for  each  M,  and  the  result  PWR(M)  is  used  as  the  short  term  power  rate  per 
hour,  (See  bottom-right  box  of  Appendix  C,  flow  chart  sheet  1.  )  PWRRT  (mnemon¬ 
ic  power  rate)  is  considered  to  reflect  a  short  term  peak  workload  requirement. 


Values  for  individual  crew  member^ s  pace  or  working  speed  are  selected  by 
pseudorandom  number  techniques  from  a  normal  distribution  having  a  mean  equal  to 
the  average  crew  pace  parameter,  ACP,  and  a  standard  deviation  of  0.  11.  That  is, 

6  8  per  cent  of  the  crew  population  can  be  expected  to  fall  in  the  range  from  ACP  - 
0.  11  (fast  operators)  to  ACP+  0.  11  (slow  operators). 

In  a  similar  way,  the  model  next  calls  for  the  calculation  of  a  value  represent¬ 
ing  the  level  of  aspiration,  ASP(M),  for  each  crew  member  at  the  start  of  each  mis¬ 
sion.  These  are  selected  from  a  normal  distribution  with  a  mean  equal  to  the  input 
parameter  AASP  and  a  standard  deviation  equal  to  one-tenth  of  that  value.  ASP(M) 
values  must  fall  in  the  0-1  range. 

The  amount  of  sleep  each  man  takes  each  day  is  monitored  by  the  model  as  a 
factor  influencing  fatigue.  One  of  the  elements  involved  here  is  the  length  of  time 
since  the  completion  of  a  crew  member* s  most  recent  sleep,  HSLS(M);  the  mnemonic 
is  hours  since  last  sleep.  In  order  to  determine  an  initial  value  of  this  variable  for 
each  man  at  the  beginning  of  the  mission,  the  Monte  Carlo  method  is  again  employed 
where  the  average  is  the  input  parameter,  SLEEP,  and  the  standard  deviation  is  1/4 
SLEEP.  Thus,  this  initial  HSLS(M)  value  represents  the  number  of  hours  since  the 
last  sleep  of  a  man,  M,  at  the  start  of  the  mission. 

Given  values  for  HSLS(M)  for  every  crew  member,  it  is  then  possible  to  de¬ 
termine  the  fatigue  level  for  each  man,  FAT(M),  an  important  mission  starting  con¬ 
dition.  This  is  accomplished  using  the  subroutine  FBUILD  (fatigue  buildup)  shown 
in  Appendix  C. 

The  next  initial  condition  calculation  for  the  crew  results  in  the  selection  of 
a  stress  threshold  for  each  man,  STRM(M).  Again,  a  specific  value  is  taken  for 
each  crew  member  from  a  normal  distribution  having  an  average  equal  to  the  aver¬ 
age  psychological  stress  threshold  parameter,  APST,  and  a  standard  deviation  of 
APST/6. 

The  model  next  generates  a  value  for  competence  of  each  crew  member  in 
both  his  primary  and  secondary  specialties,  PCOM(M)  and  SCOM(M),  using  sub¬ 
routine  PSCAP,  Appendix  C,  page  22.  Competence  is  a  descriptive  variable  for 
affording  gross  categorization  of  the  quality  level  of  an  individual’s  criterion  be¬ 
haviors.  This  is  accomplished  by  command  echelon  using  percentages  of  crew  of 
various  qualifications  as  provided  in  the  personnel  input  data,  and  the  summarized 
crew  complements  by  command  echelon,  lAA(CE),  previously  calculated.  The  total 
crew  competence  is  determined  in  the  primary  specialty  as  an  average  of  the  PCOM(M) 
values  over  the  crew. 


Any  physical  incapacity,  PI{M),  of  a  man  at  the  beginning  of  the  mission 
is  calculated  next  in  the  same  way  in  which  it  is  determined  before  beginning  each 
day's  simulation.  A  few  randomly  selected  men  may  have  a  degraded  condition 
representing  mild  sickness.  The  number  of  such  men  to  be  so  degraded  each  day, 
NPI,  is  determined  by  selecting  a  number  from  a  Poisson  distribution  whose  aver¬ 
age  is  the  quotient  of  the  number  of  men  in  the  crew  divided  by  the  parameter  MPI 
(the  average  number  of  man  days  per  incidence  of  degradation).  For  example,  if 
there  are  15  crew  members  and  degradation  is  expected,  on  the  average,  once  out 
of  10  man  days,  then  the  number  of  men  considered  handicapped  is  selected  by 
drawing  a  number  (always  an  integer)  from  the  Poisson  distribution  having  an  aver¬ 
age  of  15/10  =  1.  5.  The  selection  of  which  specific  individuals  are  considered  to 
be  degraded  is  made  randomly  so  that  all  men  are  equally  likely  for  selection.  For 
each  man,  M,  so  selected,  the  model  calculates  the  level  of  incapacitation,  PI(M), 
and  the  duration  in  days[PI2(M)] . 

The  level  of  physical  incapacitation  is  calculated  so  as  to  yield  an  equiprob- 
able  value  in  the  range  from  0.  75  to  0.  95.  Similarly,  the  duration  of  the  degrada¬ 
tion  is  determined  from  a  Poisson  distribution  sampling  in  which  the  average  value 
is  PID,  a  personnel  input  datum  representing  the  average  duration  of  a  minor  phy¬ 
sical  incapacitation.  The  model  does  not  simulate  the  situation  in  which  a  man  is 
incapacitated  to  an  extent  which  precludes  his  working. 

The  results  of  all  initial  value  selection  computations  are  optionally  record¬ 
ed  (print  option  2,  IND(2)  =  1)  individually  for  each  crew  member  and  summarized 
by  crew  echelon  and  for  the  total  crew.  A  sample  of  these  data  is  shown  in  Table 
2-1. 
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Preparations  for  Daily  Simulation 

At  circle  b  of  Figure  2-1,  several  variables  are  reset  to  initiate  the  sim¬ 
ulation.  These  resets  precede  the  simulation  of  the  first  day's  events. 

#  In  preparation  for  simulation  of  all  daily  events,  the  model  now  calls  for 
the  determination  of  the  specific  day  of  first  occurrence  of  any  repair  (due  to  ca¬ 
tastrophic  failure)  of  each  of  the  IQ  equipments,  as  well  as  of  the  day  of  first  oc¬ 
currence  of  each  of  the  K  types  of  emergencies.  There  is  a  limit  (including  up  to 
10  operator  induced  failures)  of  30  repairs  per  day.  The  dates  of  first  repair  are 
based  on  an  exponential  equipment  failure  distribution.  These  are  calculated  as 

®  one  would  determine  the  time  of  arrival  of  an  event  so  distributed.  (Note  that  the 

model  critically  determines  the  day  of  first  occurrence  of  each  failure.  Later, 
each  time  a  day  is  simulated  in  which  such  a  failure  occurs,  the  same  procedure 
is  used  to  determine  the  day  of  next  occurrence  of  the  failure.  The  method  se¬ 
lected  is  from  Bekey  and  Gerlough  (1965): 

#  A  phenomenon  characterized  by  sequences  of  arrivals 

may  be  treated  by  the  exponential  distribution;  then: 

/  \  -t/K 

p (g  >  t )  =  e 


#  expresses  the  probability  that  spacing  between  arrivals 

equals  or  exceeds  the  specified  time,  where  g  =  gap  be¬ 
tween  arrivals,  t  =  time,  K  =  average  time  spacing  be¬ 
tween  arrivals  and  1/K  =  arrivals  per  unit  time.  Then 
t  =  -Kln(l-P).  One  may  substitute  a  random  fraction 
R  =  1-P  and  solve  for  the  time  between  arrivals. 


In  this  way,  the  day  of  first  failure  occurrence,  IDF(IQ),  is  determined 
and  rounded  to  the  nearest  integer  day  for  each  equipment,  IQ.  The  "constant" 
used,  RELH(IQ),  is  the  average  time  in  days  between  hard  (catastrophic)  fail¬ 
ures  of  equipment  IQ  and  the  equipment  failure  rate  is  measured  in  average  num- 

•  ber  of  days  between  failure  occurrences.  During  the  course  of  the  mission,  as 
each  failure  occurs  on  a  day  being  simulated,  the  day  of  occurrence  of  the  next 
failure  of  that  equipment  is  determined  as  outlined  above  and  added  to  the  previ¬ 
ous  day's  value  to  obtain  the  current  (next)  value. 

All  IDF(IQ)  values  are  reset  to  zero  at  the  initiation  of  each  mission  iter- 

•  ation. 


Determination  of  the  similar  day  of  first  occurrence  of  each  of  K  types  of 
emergencies,  IDE(K),  is  based  on  the  exponential  distribution  using  the  above  de¬ 
scribed  logic  for  the  time  of  next  equipment  hard  failure.  This  was  implemented 
since  it  was  considered  that  an  assumption  of  a  constant  hazard  rate  for  antici¬ 
pation  of  emergencies  was  appropriate. 
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The  following  brief  analysis,  although  it  is  a  relatively  standard  derivation, 
shows  that  the  consequence  of  this  assumption  is  the  exponential  distribution. 

Let  AAt  =  probability  of  a  random  event  between  t  and  t  +  At.  Then,  1  -  XAt 
=  probability  of  no  random  event  between  t  and  t  +  At.  Let  N(t)  =  probability  of  no 
event  from  T  =  0  to  T  =  t.  Then  N(0)  =  1,  also  N(t  +  At)  =  N(t)  x  (1  -  XAt).  That 
is,  no  event  from  0  to  t  +  At  means  no  event  from  0  to  t  and  no  event  from  t  to 
t+  At.  From  this  equation,  we  can  obtain  a  differential  equation,  solve  it,  and 
so  obtain  the  exponential  distribution  of  time  between  events; 


N(t+  At)  -  N(t)  =  -  N(t)XAt 


lim  rN(t+  At)  -  N^)”!  dN 

At-^  0  L - At - J  =  ■  ^ 


Solve  differential  equation,  using  R(0)  =  1,  to  obtain: 


N(t)  =  e 


Thus,  a  constant  hazard  rate  and  an  exponential  distribution  of  time  between 
events  are  equivalent. 


Daily  Simulation 

The  logic  sequence  now  enters  the  phase  of  processing  which  is  repeated 
serially  for  each  mission  day,  ND.  The  sequence  is  initiated  at  circle  c  (Figure 
2-1)  with  reset  of  several  variables  in  preparation  for  the  daily  processing. 


Motion  Sickness 

Next,  the  effect  of  sea  state  on  crew  performance  is  determined  for  the 
day.  The  operation  of  most  nonshore  based  Navy  equipment  is  in  an  environment 
where  motion  sickness  can  affect  human  reliability.  Motion  sickness  is  caused 
by  particular  kinds  of  motion;  its  sjnnptoms  include  nausea,  vomiting,  malaise, 
and  cold  sweating.  The  incidence  of  motion  sickness  on  sea  cruises  varies  from 
less  than  one  per  cent  to  almost  100  per  cent,  depending  on  the  vessel,  the  sea 
conditions,  and  other  factors  (Tyler,  1946).  During  moderate  turbulence,  a 
2  5-30  per  cent  rate  of  sickness  to  the  point  of  vomiting  can  be  expected  (Chinn, 
1963).  While  it  is  generally  accepted  that  when  conditions  are  appropriate,  almost 


everyone  will  become  motion  sick,  it  has  been  shown  (Hemingway  &  Gareen,  1945) 
that  the  degree  of  susceptibility  to  motion  sickness  varies  among  individuals.  A 
number  of  studies  have  shown  that  repeated  or  continuous  exposure  to  motion  results 
in  declining  motion  sickness  in  most  people  (e.  g.  ,  Bard,  1945;  Bruner,  1955).  It  is 
clear  that  sufficient  empirical  data  exists  to  generate  distributions  of  expected  mo¬ 
tion  sickness  as  a  function  of  mission  length.  The  parameter  inputs,  SESTA(IS), 
specifies  the  cumulative  probability  of  each  of  10  values  of  the  roughness  of  the  sea 
from  0  (calm)  to  9  (rough).  For  example,  a  value  of  SESTA(6)  =  0.  72  indicates  that 
72  per  cent  of  all  mission  days  have  a  sea  state  of  six  or  below.  Prior  to  simulation 
of  each  day,  a  pseudorandom  number  (RY),  in  the  0  to  1  range,  is  compared  to  the 
10  SESTA(IS)  input  values.  Here  is  the  sea  state  index  0,  1,  .  .  , ,  9.  For  example, 
if  the  SESTA(IS)  values  are: 

01  23456  789 

SESTA(IS)  0.10  0.30  0.50  0.80  0.90  0.95  0.97  0.98  0.99  1.0 

and  RY  is  .  36,  the  sea  state  for  this  day,  ICSS,  =  2  since  SESTA(l)  <  RY  but  SESTA(2) 
>  (RY).  The  current  day's  sea  state,  ICSS,  is  selected  as  the  minimum  value  of  IS 
for  which  SESTA(IS)  <  RY  is  selected  as  the  sea  state  for  the  current  day.  This  sea 
state  value  is  used  in  the  calculation  of  a  value  for  competence  of  each  crewman  for 
the  day.  Both  primary  and  secondary  specialty  competences,  TPCOM(M)  and 
TSCOM(M),  are  affected.  The  effect  is  linear  such  that  no  change  to  previously 
computed,  nondegraded  (start  of  mission)  competence  values  is  made  if  IS  =  0  (calm 
sea)  and  such  that  start  of  mission  values  are  degraded  by  a  factor  of  0.  445  for  a 
worst  case  of  sea  state  of  9,  representing  a  heavy  storm  condition.  This  linear  re¬ 
lationship  between  sea  state  and  competence  is  shown  in  the  bottom  left  box  of  logic 
flow  sheet  4  in  Appendix  C. 

Following  this,  the  list  of  days  of  the  first  occurrence  of  repairs  and  emer¬ 
gencies  (just  calculated)  is  scanned  to  identify  any  repairs  and/or  emergencies  which 
are  to  be  simulated  on  this  day.  (The  model  provides  for  simulation  of  up  to  12  *'re- 
pair"  events  to  represent  a  single  equipment  repair.  )  The  total  number  of  such  re¬ 
pairs  and  emergencies  is  integrated  with  the  events  of  this  day.  Pointers,  identify¬ 
ing  the  sequence  of  events  to  be  simulated,  are  then  generated.  If  there  are  no  re¬ 
pairs  or  emergencies,  the  pointer  for  event  1  will  be  2;  for  event  2  it  will  be  3,  etc. 
When  a  family  of  one  or  more  repair  events  or  an  emergency  is  encountered  in  this 
process,  the  logic  calls  for  placing  this  unscheduled  event  in  a  random  but  equiprob- 
able  position  in  the  sequence  of  all  events  for  the  day.  The  pointer  for  an  unscheduled 
event  is  calculated  by  taking  the  product  of  a  pseudorandom  number  in  the  interval 
0-1  and  the  total  number  of  events  for  the  day,  NTE.  The  pointer(s)  for  the  event 
just  prior  to  the  unscheduled  event(s)  is  (are)  then  adjusted  to  indicate  the  unscheduled 
event.  The  data  for  repairs  and  emergencies  are  transferred  in  memory  for  proc¬ 
essing  in  sequence  as  determined  by  the  pointers. 
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This  process  is  accomplished  by  generating  an  array  of  pointers,  NPTR(I), 
I  =  1,2,...,  NTE,  where  NTE  is  the  total  number  of  events  of  all  types.  Pointers 
serve  to  identify  the  event  to  be  simulated  next,  after  each  event.  The  maximum 
value  of  NTE  is  570,  the  sum  of  NOSE  +  NR  +  NE: 


NOSE  < 

200: 

scheduled  events 

NR  < 

360: 

repair  events 

(30  equipments  x  12  repair  events 

per  equipment) 

NE  < 

10: 

emergency  events 

The  pointer  array  space  assignment  is  then: 

0  -  200  scheduled  events 

201  -  560  repair  events 

561  -  570  emergency  events 


The  following  other  data  are  now  automatically  inserted  for  repairs  and 
emergencies: 


Kind  of  event  ending 
Type  of  event 

Time  event  must  be  completed 
Time  before  which  event  cannot  begin 


KE  variable  end  time 
INT  emergency  or  repair 
TL  24  hours  (any  time) 

ST  0  hours  (any  time) 


Operator  Induced  Malfunctions 

The  possibility  of  an  operator  inducing  malfunctions  into  the  equipment 
with  which  he  works  has  recently  been  incorporated  into  the  model.  At  this  point 
in  the  simulation  for  each  day,  specific  equipments  are  identified  on  which  such 
failures  are  to  occur.  Actual  event  simulations  generated  by  repairs  thus  in¬ 
volved  are  calculated  and  described  later. 

The  logic  for  this  feature  is  given  in  logic  flow  sheet  5  of  Appendix  C.  Es¬ 
sentially,  it  performs  the  following  functions: 


•  During  the  daily  schedule  generation,  it  determines  the 
events  on  which  an  operator  induced  equipment  failure 
will  occur: 

-  This  can  only  occur  once  per  event  family. 

-  It  is  a  function  of  the  mental  load  of  the 
event  (an  input  code  1-9),  the  current  sea 
state  (0-9),  and  a  random  effect.  The  prob¬ 
ability  is  highest  when  the  sea  state  and  men¬ 
tal  loads  assume  their  highest  values.  For 
example,  when  mental  load  for  the  event  is 
low,  i.  e, ,  has  a  value  less  than  3,  then  an 
operator  induced  failure  will  occur  if  the 
ranges  of  these  are: 


RYl  < 

0  to  1 


(0.  001  to  0.  00125)  (0.  1  to  1) 


-  The  occurrence  of  the  operator  induced 
failure  is  then  directly  proportional  to  the 
current  sea  state  and  occurs  with  a  prob¬ 
ability  equally  likely  to  fall  between  0.  001 
and  0.  00125  times  (ICSSj-  1)^  ^or  calm 
sea  (less  =0),  this  reduces  to  a  probability 
in  the  range  0.  0001  to  0.  000125.  For  ICSS 
=  2,  then  it  does  not  exceed  0.  00375. 

The  probability  of  occurrence  during  an  emer¬ 
gency  is  higher  than  during  a  scheduled  event. 


•  In  the  case  in  which  an  operator  initiated  malfunction  oc- 
'  curs,  the  model  generates  a  family  of  up  to  12  repair 
events  to  represent  the  repair  of  the  equipment  into  which 
the  failure  was  induced.  These  are  inserted  into  the  daily 
schedule  of  events  in  which  the  operator  induced  malfunc¬ 
tion  occurred. 


Such  an  occurrence  has  the  subsequent  effect  of  lowering  equipment  reli¬ 
ability  by  adding  events  during  which  equipment  will  be  logged  by  the  model  in  a 
down  (inoperable)  condition. 

Scaling  has  been  selected  so  that  the  probability  of  an  operator  induced 
failure  per  event  varies  for  repairs  from  0.  001  (low  sea  state  and  mental  load) 
to  0.  0375  (high  sea  state  and  mental  load)  and  from  0,  08  to  0.  10  for  emergencies. 


Intermittent  Failures 

As  noted  above,  processing  for  hard  equipment  failures  results  in  repair 
action  events  and  in  degraded  equipment  scores.  The  concept  of  intermittent 
failures  provides  for  equipment  down  time,  which  results  in  worsened  equipment 
reliability  measures,  but  is  not  considered  sufficiently  significant  to  warrant  oper- 
ator  repair  action. 

To  incorporate  this  feature,  the  model  calculates  the  number  of  occurrences 
of  intermittent  failures  each  mission  day  for  each  equipment,  INO(IQ).  This  is  ac¬ 
complished  by  selection  of  a  pseudo  random  number  from  a  Poisson  distribution 
with  mean  equal  to  the  average  number  of  intermittent  failures  per  24  hour  period, 
RELI(JET),  provided  as  an  input  parameter  for  each  equipment  type: 


JET  Equipment  Type 

1  Mechanical 

2  Electromechanical 

3  Electrical 

4  Electronic 

Using  this  value  of  IN O  and  TUI(IQ)  (time  an  equipment  is  down  for  an  aver¬ 
age  intermittent  failure),  the  amount  of  "down  time"  for  each  equipment  is  calcu¬ 
lated,  These  initial  daily  values  of  down  time  for  each  equipment  will  be  increased 
later  for  each  repair  event,  as  it  is  simulated  in  turn. 


Event  Processing 

After  the  setting  of  the  event  number,  IE,  to  the  value  of  the  first  pointer 
and  other  initializations,  the  processing  has  reached  circle  d  and  begins  a  series 
of  processing  steps  (through  circle  h)  which  is  repeated  for  each  event  to  be  simu¬ 
lated. 


The  number  of  such  occurrences,  INO(IQ),  is  then  RP[REL1(JET)] ,  as 
shown  in  the  top-middle  box  of  flow  logic  sheet  6  in  Appendix  C. 
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Following  the  resets  for  each  event,  the  computer  determines  whether  or 
not  conditions  exist  which  would  justify  skipping  (ignoring)  the  current  event.  In 
no  case  is  a  repair  or  emergency  event  ignored;  however,  either  of  two  general 
conditions  could  cause  a  scheduled  event  to  be  so  treated.  The  first  is  a  low  value 
of  the  input  essentiality  of  the  event,  lESS(IE).  If  this  essentiality  value  is  less 
than  the  essentiality  threshold  parameter,  lET,  then  the  event  is  ignored.  (The  task/ 
mission  analyst  determines  the  essentiality  thresholds  on  the  basis  of  his  understand 
ing  of  the  relative  importance  of  each  event  to  the  mission  and  these  values  are  pro¬ 
vided  as  mission  input.  ) 

The  second  possible  condition  for  skipping  an  event  is  too  low  a  level  for 
a  consumable.  The  model  provides  for  L  (up  to  10)  consumables  based  on  usage 
per  event  plus  LI  (up  to  10)  consumables  based  on  usage  per  time.  The  model 
also  provides  (up  to  10)  sets  of  10  thresholds  for  the  supply  of  each  consumable. 

One  set  of  thresholds  is  selected  by  TS(IE)  (input  data)  as  applicable  to  each 
event  and  if  the  value  of  one  or  more  consumables  is  less  than  the  corresponding 
selected  threshold,  then  the  event  is  ignored. 


Personnel  Selection  for  Assignments 

The  logic  detailing  the  selection  of  the  most  desirable  personnel  to  assign 
to  each  a  specific  event  begins  at  circle  e  of  the  flow  chart.  In  general,  the  proc¬ 
essing  logic  is  similar  for  both  normal  events  and  training  events.  However,  for 
simulating  the  performance  of  normal  events,  personnel  are  assigned  on  the  basis 
of  their  primary  specialty,  whereas  in  the  case  of  training  events,  the  selection 
is  made  on  the  basis  of  the  secondary  specialty. 

The  processing  is  performed  for  each  personnel  type  sequentially.  All 
men  of  the  desired  personnel  type  (who  have  not  already  worked  more  hours  than 
the  overtime  threshold  parameter  [WORK  2]  )  are  considered  and  evaluated  for 
selection  on  the  basis  of  the  following  criteria: 

1.  the  number  of  hours  worked  so  far  during  the  day, 

TW(M).  The  man  who  has  worked  least  is  preferred. 

If  there  is  an  excess  of  men,  with  equal  TW(M)  values 
available,  of  the  type  being  sought,  then  the  selection 
is  made  on  the  basis  of 

2.  a  function,  CALR,  relating  the  man's  peak  energy  rate 
(over  a  one  hour  period)  to  the  energy  rate,  in  calories 
per  hour,  required  by  the  event  also  normalized  to  a 
one  hour  period.  All  cases  in  which  the  required  ener¬ 
gy  is  less  than  the  man's  "available"  energy  are  con¬ 
sidered  equal.  The  purpose  of  this  selection  criteria 
is  to  avoid  a  mismatch  between  the  requirements  of 
the  job  and  the  physical  capability  of  the  personnel  as¬ 
signed. 


3.  competence  in  the  primary  specialty,  IPCOM(M).  The 
most  competent  is  selected  first. 

Before  actually  confirming  the  selection  of  a  given  man  for  assignment  to 
the  group  which  will  perform  the  event,  a  test  is  made  to  determine  if  the  perform¬ 
ance  of  this  event  would  require  that  the  potential  group  member  to  work  overtime. 
That  is,  the  computer  tests  whether  or  not  the  current  time  worked,  TW(M),  plus 
the  expected  (average)  event  time,  ADUR(IE),  exceeds  the  overtime  threshold  pa¬ 
rameter,  WORK  1.  If  the  threshold  is  not  exceeded,  then  the  individual  who  has 
been  tentatively  selected  is  confirmed  for  group  assignment.  If  overtime  is  re¬ 
quired  for  this  man  (for  whom  it  has  already  been  determined  that  he  has  worked 
least),  then  there  are  clearly  no  more  desirable  personnel  of  this  type  available. 

In  this  case,  an  incomplete  processing  indicator  (IPI)  is  set.  Following  the  proc¬ 
essing  of  all  the  remaining  personnel  types,  crosstrained  crew  members  are  sought 
to  substitute  for  any  primary  specialty  men  who  are  unavailable  because  of  the  over¬ 
time  requirement.  The  overtime  thresholds  including  WORK  1  are  provided  as  in¬ 
put  parameters  so  that  they  may  be  varied  on  computer  runs  and  the  effects  of  such 
variation  on  output  noted.  Values  of  the  parameters  should  be  selected  on  the  basis 
of  reasonableness  for  the  mission  simulated,  reflecting  the  realities  of  the  work 
cycle. 

The  concept  of  a  family  of  scheduled  events  (i.  e. ,  a  group  of  interconnect¬ 
ed  and  interrelated  events)  is  also  included.  This  is  limited,  however,  to  a  series 
of  events  performed  by  one  man.  In  case  of  such  a  family  (of  up  to  12  events)  all 
will  be  performed  by  the  same  man- -whoever  was  selected  by  the  selection  logic 
for  the  first  event  of  the  family  (i.  e. ,  if  IFOI(IE)  =  1,  from  the  event  sequence 
input  data). 

By  this  process,  one  man  at  a  time  is  selected  and  confirmed.  If,  when 
the  most  desirable  crew  member  is  selected,  additional  men  are  still  required 
of  this  type,  then  the  process  repeats.  When  all  required  men  have  been  con¬ 
firmed,  or  the  proper  IPI  has  been  set,  the  sequence  of  operations  is  repeated 
for  each  successive  personnel  type  required  by  the  event,  until  the  entire  required 
work  group  has  been  formed. 

If  the  IPI  indicator  has  been  set  during  the  process,  the  processing  con¬ 
tinues  with  the  search  for  personnel  who  have  been  crosstrained  in  the  personnel 
types  which  were  not  fully  staffed  by  primary  specialists.  Should  the  situation 
arise  in  which  no  more  personnel  of  the  desired  type  are  available  in  the  second¬ 
ary  specialty  without  their  working  overtime,  then  a  tally  is  made  and  cumulated 
of  all  such  unmanned  station  hours,  USH,  based  on  the  number  of  unassigned  men 
who  are  required  and  the  average  event  time. 


Group  Leader  Identification 

Provision  is  made  to  simulate  the  influence  of  leadership  on  the  work 
group.  Later  in  the  simulation,  the  leader^ s  aspiration  and  his  competence  val¬ 
ue  are  used  to  effect  performance.  To  this  end,  the  model  now  requires  desig¬ 
nation  of  a  group  leader.  Thus,  at  the  completion  of  the  assignment  of  the  re¬ 
quired  personnel  to  a  given  event,  the  model  continues,  at  circle  f  of  Figure  2-1, 


with  the  identification  of  a  leader  for  the  workgroup.  The  group  member  with  the 
highest  command  echelon  value  is  tagged  as  the  leader.  In  the  event  of  a  tie,  the 
competing  man  with  the  highest  value  of  competence  in  the  primary  specialty  is 
selected. 


Event  Start  Time 

The  next  question  to  be  answered  is:  What  is  the  earliest  time  that  the 
event  can  begin,  assuming  the  assigned  men  are  to  perform  the  work,  and  given 
other  input  data?  It  is  likely  that  the  men  who  have  been  selected  for  event  per¬ 
formance  may  have  completed  their  previous  assignment  (or  otherwise  be  avail¬ 
able)  at  different  times.  So  that  the  event  in  question  can  begin  when  all  selected 
men  are  available,  the  latest  time  of  day  at  which  any  group  member  has  com¬ 
pleted  his  most  recent  work  assignment  is  checked.  The  earliest  shift  when  the 
job  can  be  accomplished  is  also  determined.  To  accomplish  this  bookkeeping,  the 
computer  maintains  the  latest  time  that  each  crew  member  has  worked,  Z(M),  and 
the  largest  of  these,  Zl,  (for  the  men  in  the  work  group)  is  determined.  Another 
constraint  which  enters  into  the  determination  of  event  start  time  is  the  case  in 
which  a  specified  event  must  be  completed  before  the  present  event  starts.  The 
prior  event,  IPE(IE),  is  given  in  the  input  data.  This  is  implemented  by  keeping 
a  value,  ZC(IE),  for  the  time  of  completion  of  every  event  as  it  is  completed,  and 
by  determining  the  time  of  completion  of  event  IPE(IE),  i.  e.  ,  ZC[IPE(IE)] .  The 
last  element  in  the  start  time  determination  is  a  specific  time  of  day  before  which 
the  current  event  cannot  begin.  This  value,  ST(IE),  is  also  provided  as  input 
data.  Thus,  the  event  start  time  is  selected  as  the  largest  of  the  three  values: 

ZL,  ZC[IPE(IE)],  and  ST(IE). 

If  this  start  time  exceeds  the  input  data  time  limit  value,  TL(IE),  then  the 
event  is  bypassed  after  a  calculation  of  unmanned  station  hours,  USH.  The  USH 
variable  is  used  to  accumulate  the  number  of  working  man  hours  which  were  dic¬ 
tated  by  the  event  workload  but  which  are  not  performed  due  to  unavailability  of 
crew  members  or  the  like. 


Sh i  f  t  Lo  gi  c 

The  optional  shift  logic  allows  the  division  of  the  total  crew  into  watches 
(shifts).  In  the  case  of  implementation  of  this  logic  by  the  analyst,  only  men  as¬ 
signed  to  a  shift  which  is  congruent  with  the  real  time  of  day  are  selected  for 
event  assignment.  To  implement  this  feature,  each  simulated  crew  member  is  - 
assigned  by  the  task  analyst  to  one  or  more  shifts  up  to  a  maximum  of  six  shifts 
in  a  24  hour  day.  The  model  determines  the  earliest  time  an  event  can  begin 
(based  on  its  start  time  or  time  of  completion  of  the  specified  precedent  event), 
and  identifies  men  for  each  shift  during  which  the  job  could  be  performed.  The 
same  man  may  be  identified  for  more  than  one  shift.  The  number  of  unmanned 


station  hours  (level  of  undermanning)  which  could  accrue  if  the  event  is  performed 
on  each  possible  shift  is  then  computed,  and  the  event  is  assigned  to  that  shift  in 
which  unmanned  station  hours  is  at  a  minimum.  Where  the  minimum  unmanned 
station  hours  occur  in  more  than  one  shift,  the  earlier  shift  is  selected  for  event 
performance.  The  no  shift  option  can  be  effected  by  assignment  of  all  crew  mem¬ 
bers  to  all  shifts  by  the  task  analyst. 


Event  Families 

In  order  to  allow  for  the  fine  grain  simulation/  analysis  of  events,  the  event 
family  concept  was  developed.  The  analyst  can  break  down  each  scheduled  or  re¬ 
pair  event  into  a  series  of  subevents.  These  components  of  human  performance 
can  then  be  simulated  to  determine  which  are  most  critical  to  successful  event 
performance.  Different  types  of  men  can  be  assigned  to  these  subevents  by  the 
analyst  allowing  for  test  of  different  policies.  For  example,  the  results  of  sever¬ 
al  simulations  may  indicate  that  a  specific  subevent  in  a  repair  family  is  critical 
and  may  require  staffing  by  crew  members  of  generally  higher  proficiency  levels 
or  men  who  are  trained  in  a  specific  specialty. 

The  number  of  subevents  and  the  simulation  sequence  of  the  subevents  in 
a  family  is  fully  flexible.  For  scheduled  events,  the  number  of  subevents  is  un- 
\^hile  for  repair  events  the  number  is  limited  to  12. 

Each  event  or  subevent  (scheduled,  repair,  or  emergency)  must  be  as¬ 
signed  to  a  class  by  the  analyst.  The  classes  for  scheduled  events  are:  com¬ 
munication,  operation,  decision,  or  act.  This  allows  summarization  by  class 
at  the  end  of  the  simulation. 

Each  repair  is  designated  as  one  of  four  major  types:  electrical,  electronic, 
electromechanical,  or  mechanical.  Siegel  and  Schultz  (1962),  using  factor  anal¬ 
ytic  procedures,  identified  nine  factors  involved  in  electronic  repair.  Eight  of 
these  factors,  as  shown  below,  were  expected  to  be  involved  in  the  electronic  re- 
pairs  to  be  simulated.  These  results  were  extended  to  the  other  three  major 
classes  of  repairs  (electrical,  electro -mechanical,  and  mechanical)  with  anal¬ 
ogous  factor  (type)  definitions.  The  analyst  identifies  which  major  class  of  re¬ 
pair  he  expects  to  be  necessary  in  his  categorization  of  the  equipment  involved 
in  an  event  as  either  electrical,  electronic,  electro -mechanical,  or  mechanical 
and  uses  the  factor  types  to  define  the  sequence  of  actions  required  to  repair  suc¬ 
cessfully  the  equipment.  Any  or  all  may  be  used  and  in  any  combination.  Per¬ 
formance  of  each  of  these  factors  will  be  simulated  as  a  subevent  with  the  concept 
of  a  family  being  employed  to  include  all  the  subevents  for  the  repair.  Summari¬ 
zation  by  class  (factor)  then  allows  the  identification  of  the  factors  which  contri¬ 
bute  to  task  failure,  which  take  the  most  time,  and  the  like. 


A  summary  of  the  repair  event  types  and  the  factors  within  types  follows. 


Repair  Events 

Code 

Number 

FORTRAN 

Electronic 

Uses  reference  manuals 

6 

EURM 

Electronic  cognition 

7 

EC 

Electronic  circuit  analysis 

8 

EGA 

Electronic  repair 

9 

ER 

Electronic  equipment  operation 

10 

EO 

Electronic  equipment  inspection 

11 

EIP 

Electronic  instruction 

12 

El 

Electronic  report 

13 

ERPT 

Electrical 

Uses  reference  manuals 

14 

ELURM 

Electrical  cognition 

15 

EEC 

Electrical  analysis 

16 

ELA 

Electrical  repair 

17 

ELR 

Electrical  equipment  operation 

18 

ELO 

Electrical  equipment  inspection 

19 

ELEP 

Electrical  instruction 

20 

ELI 

Electrical  report 

21 

ELRPT 

Electro-mechanical 

Uses  reference  manuals 

22 

EMURM 

Electro-mechanical  cognition 

23 

EMC 

Electro-mechanical  analysis 

24 

EMA  ' 

Electro-mechanical  repair 

25 

EMR 

Electro-mechanical  equipment  operation 

26 

EMO 

Electro-mechanical  equipment  inspection 

27 

EMEI 

Electro-mechanical  instruction 

28 

EMI 

Electro -mechanical  report 

29 

EMRPT 

Mechanical 

Uses  reference  manuals 

30 

MURM 

Mechanical  cognition 

31 

MC 

Mechanical  analysis 

32 

MA 

Mechanical  repair 

33 

MR 

Mechanical  equipment  operation 

34 

MO 

Mechanical  equipment  inspection 

35 

ME  I 

Mechanical  equipment  instruction 

36 

MI 

Mechanical  report 

37 

MRPT 

35 


Provision  is  made  within  the  model  to  simulate  fatigue  states.  Fatigue  is 
considered  to  build  as  a  function  of  the  energy  demanded  by  a  work  event  and  K 
the  duration  of  elapsed  time  since  the  individual's  last  sleep.  In  general,  accord¬ 
ing  to  Kleitman  (1963),  fatigue  builds  up  slowly  for  the  first  8  to  10  hours  of  wake¬ 
fulness,  then  it  accelerates  more  rapidly  up  to  16  hours  of  wakefulness,  the  nor¬ 
mal  retirement  time.  If  retirement  is  denied  after  16  hours  of  wakefulness,  fa¬ 
tigue  continues  to  guild  until  about  20  hours  of  wakefulness,  the  middle  of  what 
would  be  the  sleep  period.  Then,  as  a  function  of  the  body's  circadian  rhythm,  the 
rate  of  additional  buildup  slows  quite  markedly.  The  asymptotic  maximum  is  reach¬ 
ed  at  about  the  50th  sleepless  hour,  which  would  represent  two  consecutive  nights 
without  sleep.  The  literature  indicates  that  "after  two  successive  nights  of  sleep 
deprivation  the  subjects  are  about  as  sleeply  as  they  are  likely  to  get.  . .  [Kleitman, 
1963,  p.  226]  .  " 

Having  determined  the  starting  time  for  the  event  under  consideration,  the 
question  arises:  How  long  has  it  been  between  the  time  each  group  member'  s  most 
recent  event  was  completed  and  the  time  the  current  event  begins  ?  If  this  interval 
is  zero,  the  following  processing  for  sleep,  time  fatigue,  and  physical  capability 
need  not  be  performed  since  no  change  has  taken  place  in  these  values,  which  are 
also  calculated  following  each  simulated  event.  However,  if  some  time  has  elapsed 
(possibly  different  amounts  of  time  for  each  group  member),  then  these  factors  may 
change  and  the  appropriate  processing  is  performed.  If  the  interval  exceeds  the 
catnap  rest  parameter,  CN,  for  any  man,  then  it  is  assumed  that  the  man  in  ques¬ 
tion  was  in  fact  sleeping  during  the  interval.  Exceptions  to  this  are:  (1)  the  situa¬ 
tion  in  which  a  man  has  already  exceeded  the  maximum  daily  sleep  allowance  pa¬ 
rameter  MAXSL,  or  (2)  the  situation  in  which  a  man's  fatigue  level  is  below  the 
fatigue  threshold  parameter  TEAT.  This  last  condition  insures  that  no  sleep  will 
begin  for  personnel  who  are  not  sufficiently  "tired.  If  a  sleep  period  occurs,  its 
duration  is  tallied  as  equal  to  the  interval  less  a  fixed  sleep  preparation  and  wake- 
up  time  (30  minutes) 

A  value  of  time  fatigue  is  calculated  if  sleep  is  to  be  simulated.  Time  fa¬ 
tigue  of  an  operator,  FAT(M),  is  reduced  as  a  function  of  the  amount  of  sleep  and 
is  increased  after  the  duration  of  the  event  itself  is  known.  The  fatigue  relief  func¬ 
tion  utilized  was  developed  previously  by  Applied  Psychological  Services  (1966)  and 
is  presented  as  Figure  2-2.  The  general  nature  of  the  fatigue  relief  calculation  is 
to  examine  the  duration  of  the  sleep  and  to  reduce  the  fatigue  level  in  accordance 
with  a  relationship  which  specifies  that  eight  continuous  hours  of  sleep  reduce  fa¬ 
tigue  to  zero.  However,  to  simulate  such  factors  as  individual  differences  in 
sleep  requirements,  more  and  less  refreshing  sleep,  and  other  randomly  occur¬ 
ring  and  hence  unprogramable  events,  the  specific  extent  of  fatigue  reduction  re¬ 
sulting  from  a  given  duration  of  sleep  is  selected  by  a  stochastic  process  from  a 
range  of  values  surrounding  the  fatigue  reduction  curve.  Phis  is  accomplished  by 


FATIGUE  REDUCTION  FACTOR 


p 


123456789 
DURATION  OF  SLEEP 

Figure  2-2.  Fatigue  relief  curve. 
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selecting  a  number  equiprobable  in  the  shaded  area  (by  pseudorandom  numbers) 
around  the  two  linear  events  in  Figure  2-2  as  a  function  of  the  duration  of  the 
sleep  period  itself.  This,  in  turn,  generates  a  fatigue  reduction  factor  which  is 
then  multiplied  by  the  current  fatigue  level.  This  process  is  repeated  for  each 
man  in  the  work  group  independently. 

If  the  Interval  is  insufficient  to  allow  sleep,  then  it  is  assumed  that  the  in¬ 
terval  was  spent  in  some  leisure,  recreational  or  rest  activity,  but  that  this  activ¬ 
ity,  nevertheless,  has  the  same  effect  on  a  man's  fatigue  as  working.  In  this  case, 
the  model  calls  for  the  calculation  of  a  new  fatigue  value  for  each  group  member 
in  this  situation.  Here,  the  function  used  is  the  fatigue  buildup  relationship,  as 
shown  in  Figure  2-3.  As  in  the  case  of  fatigue  relief  from  sleep,  the  function  is 
divided  into  linear  segments  around  which  random  variations  are  taken  to  obtain 
specific  values  of  FAT(M)  at  any  given  time.  This  calculation  is  self  contained 
in  subroutine  FBUILD  (HSLS),  as  shown  in  Appendix  C,  page  22. 


Physical  Capability 

Salient  within  the  simulation  is  the  conception  of  the  match  between  a  per¬ 
son' s  physical  capability  and  the  job  requirements.  Heavy  duty  tasks,  such  as 
ammunition  handling  and  equipment  moving,  require  a  greater  physical  capability 
than  operating  electronic  equipment  or  plotting  courses  and  bearings.  According¬ 
ly,  provision  is  made  to  simulate  individuals  of  various  levels  of  capability  with 
respect  to  the  physical  characteristic  of  strength. 

In  addition,  the  physical  capability  variable  permits  the  simulation  to  re¬ 
flect  changes  in  the  same  individual.  Specifically,  this  variable  affords  direct 
simulation  of  the  effects  of  fatigue,  of  such  randomly  occurring  incapacitators  as 
colds,  headaches,  seasickness/ airsickness,  sprains  and  strains,  and,  as  an  out¬ 
put,  it  affords  analysis  of  physical  workloads  separate  and  distinct  from  mental 
workloads. 

The  representation  of  strength  in  the  model  is  an  indirect  one.  This  seems 
necessary  because  the  literature  indicates  that  strength  is  not  a  unitary  concept. 

Fleishman  et  al.  (1961,  1962)  administered  a  broad  spectrum  of  strength 
tests  to  201  Naval  trainee  recruits  on  whom  age,  height,  and  certain  other  data 
were  available.  All  test  results  and  anthropometric/biographic  data  were  inter- 
correlated,  and  the  resulting  matrix  was  factored  by  the  centroid  method  and  ro¬ 
tated  to  a  simple  structure.  This  procedure  yielded  three  primary  factors  of 
strength,  a  fourth,  markedly  weaker,  and  three  final  factors  not  involving  strength 
variables  per  se  (i.  e.  ,  one  was  interpreted  as  a  balancing  factor,  and  the  other 
two  factors  were  biographically  related).  The  three  primary  factors  of  strength 
were  named  Dynamic  Strength,  Static  Strength,  and  Explosive  Strength.  They 
were  described  by  the  authors  as  follows: 
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HOURS  SINCE  LAST  SLEEP 


The  common  requirement  of  all  tests  on  the  Dynamic 
Strength  factor  is  for  the  muscles  involved  to  propel, 
support,  or  move  the  body  repeatedly  or  to  support  it 
continuously  over  time. 

The  tests  of  our  Static  Strength  factor  emphasize  the 
lifting  power  of  the  muscles  or  the  pounds  of  pressure 
which  the  muscles  can  exert.  ...  In  contrast  to  Dynamic 
Strength  the  force  exerted  is  against  external  objects, 
rather  than  in  supporting  or  propelling  the  body's  own 
weight. 

We  have  given  the  Explosive  Strength  factor  the  alter¬ 
nate  name  of  ’’Energy  Mobilization,  ”  since  tasks  of 
measuring  this  factor  require  the  effective  release  of 
energy  in  one  explosive  act.  .  .  .  The  fact  that  our  sprints 
are  loaded  on  this  factor  is  entirely  consistent  with  this 
notion  of  ’’distance  through  which  a  force”  can  be  moved 
(Fleishman,  Kremer,  &  Shoup,  1961,  p.  37). 


These  descriptions  seem  to  imply  that  the  first  and  the  third  factors  pertain 
mainly  to  the  types  of  strength  exhibited  in  particular  athletic  contests.  In  fact, 
gymnastics  and  calisthenics  loaded  most  heavily  on  the  first  factor  and  running  and 
jumping  activities  loaded  most  heavily  on  the  third.  Factor  two,  however,  the  so- 
called  Static  Strength  factor,  seems  to  transcend  athletics  and  to  reflect  the  type  of 
strength  involved  in  most  military  and  industrial  laboring  tasks  which  depend  on 
strength.  This  is  the  type  of  strength  that  is  involved  in  lifting,  pushing,  pulling, 
and  otherwise  moving  equipment,  and  other  objects.  Furthermore,  the  Fleishman 
et  al.  data  show  static  strength  to  be  highly  correlated  with  weight. 

In  view  of  the  availability  of  weight  data,  body  weight  was  accepted  as  the  in¬ 
dicator  of  physical  capability  within  the  model. 

Other  data  further  support  the  defensibility  of  weight  for  providing  a  reason¬ 
able  index  of  strength.  For  example,  Damon,  Stroudt,  and  McFarland  (1966)  indi¬ 
cated  that  ”A  general  size  factor,  common  to  all  dimensions,  extends  also  to 
strength.  ”  Tappen  (1950),  in  examining  championship  weightlifters,  obtained  a  cor¬ 
relation  coefficient  of  0.  85  between  body  weight  and  the  number  of  pounds  "pressed.  " 
Caldwell  (1963)  reported  a  product  moment  correlation  of  0.  74  between  the  weight 
and  the  maximum  dynamometric  pull  of  both  male  and  female  college  students. 

Fisher  and  Birren  (1949)  also  reported  significant  correlation  coefficients  between 
the  dynamometer  score  and  weight  of  90  male  military  personnel  and  161  Waves, 
Hansen  and  Cornog  reviewed  a  study  by  Jones  (1947)  indicating  that  ”.  .  ,  strength  is 
related  both  to  body  size  (especially  to  weight)  and  to  the  mesomorphic  component 
in  body  build”  (Hansen  &  Cornog,  1958,  p,  250). 


Within  the  simulation,  the  physical  capability  of  the  various  crew  members 
changes  during  the  course  of  a  mission  as  a  function  of  two  fundamental  concepts: 
(1)  the  physical  capability  of  the  infirmed  operator  (e.  g. ,  the  operator  who  is  sea¬ 
sick,  has  a  cold,  or  a  headache,  etc.  )  is  less  than  the  physical  capability  of  that 
operator  when  he  is  well,  and  (2)  the  physical  capability  of  the  fatigued  operator 
is  less  than  the  physical  capability  of  that  operator  when  he  is  ’’fresh.  ” 

By  program  action,  such  degrading  effects  occur  at  random  times  during 
the  mission,  at  a  rate  dependent  on  an  input  parametric  value.  The  processing  of 
this  variable  occurs,  however,  only  at  the  beginning  of  the  mission  and  at  the  end 
of  each  mission  day.  The  value  of  the  variable  is  utilized  in  the  physical  incapaci¬ 
ty  calculation. 

When  a  simulated  individual  becomes  subject  to  the  incapacity  effect,  his 
physical  capability  is  reduced.  The  exact  extent  of  impairment  cannot  be  speci¬ 
fied  in  view  of  large  individual  differences  in  reaction  to  these  minor  ailments  and 
afflictions.  Accordingly,  the  capability  reduction  is  treated  by  a  stochastic  proc¬ 
ess. 


Physical  Capability  Calculations 


If  a  fatigue  calculation  is  required  (and  a  new  time  fatigue  value,  FAT(M), 
determined  for  the  working  group  members),  then  the  current  physical  capability, 
PCC(M),  must  also  be  calculated  since  PCC(M)  is  dependent  upon  FAT(M).  This 
calculation  represents  the  physical  capability  of  the  men  at  the  start  of  the  event. 

It  is  repeated  for  each  group,  as  described  below.  It  is  assumed  that  the  physi¬ 
cal  capability  of  a  man  decreases  with  time  at  work,  total  work  done,  overexertion, 
and  disability  (physical  degradation).  Physical  capability  also  varies  among  men. 
These  effects  are  assumed  to  be  independent  of  each  other  and  operate  multiplica- 
tively.  The  function*  may  be  expressed  analytically  as: 


PCC(M)=  PC(M)-  PI(M)-  . 


g(-^)  .  [1-0.  IFAT(M)] 
N 


Here,  PC(M)  is  the  physical  capability  (related  to  strength)  of  the  man,  as  calcu¬ 
lated  at  the  beginning  of  the  mission  (1  is  an  average  value),  PI(M)  is  the  physical 
incapacity  value  related  to  minor  sicknesses  discussed  above.  The  factor  [l-(l-Kl) 

/ACAl(M)^  is  termed  the  work  factor.  Here,  ACAL(M)  is  the  total  work  done 

'  <iAL(M)^ 


The  physical  capability  variable  was  selected  and  quantified  on  the  basis  of 
an  analysis  of  the  pertinent  sources  as  summarized  in  Siegel,  Wolf,  and  Cosentino 
(1971,  pages  31-34).  The  form  of  the  function  and  its  rationale  follows  from 
that  analysis. 


(calories  expended)  on  all  events  from  the  last  sleep  period  up  to  and  including 
half  of  the  calories  expected  to  he  expended  on  this  event,  maintained  hy  the  com¬ 
puter  as  the  tally  of  accumulated  calories,  CAL(M)  is  the  average  number  of  cal¬ 
ories  expended  in  a  normal  working  day  for  each  man,  as  discussed  earlier.  The 
K1  term  represents  a  disability  factor--a  fraction  to  which  the  work  factor  falls 
when  a  particular  man  has  done  his  normal  quota  of  work  during  the  day.  In  this 
analysis,  we  note  that  a  man's  capability  decreases  as  he  continues  to  work  and 
that  it  is  reduced  to  the  value  K1  after  a  normal  day's  effort.  The  term  g(P'p/P]^ 
represents  an  overexertion  effort.  Here,  a  mismatch  of  capabilities  between  the 
men  assigned  and  the  physical  requirements  of  the  events,  in  terms  of  energy  (cal¬ 
ories)  required,  are  considered.  The  function  is: 


c-P^/P,,, 
T  N 

c  -  1 


when  ^  1 

when  1  <  Pp/P]yf  -  c 


Thus,  the  overexertion  factor  has  no  influence  as  long  as  the  work  rate  for  the  giv¬ 
en  event  does  not  exceed  the  peak  work  rate  expected  for  the  men. 

In  FORTRAN  notation; 


P.J,,  work  rate  for  the  event 

=  lEC(IE)  calories  per  hour 

P^,  peak  work  rate 

=  PWR(M)  calories  per  hour 

c,  value  of  Pp/  Pj^f  yielding  zero 

=  ZPC 

physical  capability  due  to  over¬ 

exertion 

The  function  is  represented  graphically  as  shown  in  Figure  2-4. 


Figure  2-4.  Overexertion  function. 


The  last  term  of  the  PCC(M)  equation  is  a  function  of  the  fatigue  factor,  as 
previously  defined,  which  is  dependent  only  upon  time  elapsed  since  last  sleep  and 
sleep  duration. 

The  group  physical  capability  is  calculated  as  the  average  of  the  physical 
capability  values  over  all  group  members. 


Comp  e  t  en  c  e 


Job  competence,  as  employed  in  this  simulation  model,  represents  those 
aptitude,  ability,  training,  and  experiential  factors  which  determine  how  well  an 
individual  performs  on  the  job.  It  pertains  to  the  quality,  or  accuracy,  of  per¬ 
formance,  and  is  almost  completely  independent  of  the  speed  of  performance.  The 
overall  influence  of  this  variable  is  for  greater  competence  to  yield  more  accurate 
task  performance.  The  only  circumstance  in  which  competence  bears  any  relation¬ 
ship  to  event  completion  time  in  the  model  is  in  the  circumstance  of  an  event  which 
must  be  repeated  if  performed  unsatisfactorily.  The  less  competent  individual  has 
a  lower  probability  of  succeeding  on  an  event.  Since  repetitions  consume  time, 
satisfactory  completion  of  that  event  will  take  the  less  competent  operator  longer 
than  his  more  competent  peer--not  because  he  necessarily  works  more  slowly- - 
but  because  he  is  more  likely  to  need  to  repeat  the  event. 

Each  simulated  crew  member  is  considered  to  have  a  degree  of  competence 
rated  on  a  scale  between  zero  and  unity,  in  both  a  primary  occupational  specialty 
and  a  secondary  specialty.  Competence  values  at  the  start  of  a  mission  are  select¬ 
ed  by  the  computer  on  the  basis  of  personnel  input  data.  Mean  and  standard  devia¬ 
tion  values  for  the  generation  of  such  data  are  available  in  a  number  of  sources. 
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Within  the  model,  competence  is  one  of  the  principal  determinants  of  how  well 
an  event  will  be  performed.  Thus,  as  the  competence  of  the  persons  selected  to 
perform  an  event  increases,  the  likelihood  that  they  will  perform  the  event  satis¬ 
factorily  also  increases. 

However,  we  do  not  assume  competence  to  be  static.  Within  the  model, 
provision  is  made  to  allow  competence  to  be  modified  as  a  function  of  experience 
(Ghiselli  &  Brown,  1948)  and  as  the  aspiration  level  varies.  In  the  prior  regard, 
Deutsch  (1954,  p.  208)  maintained  that  "If  an  individual  has  considerable  experi¬ 
ence  in  a  given  activity,  he  will  know  pretty  well  what  level  he  can  expect  to  reach 
and  the  gradient  of  values  on  the  subjective  probability  scale  will  be  steep"  and  in 
the  latter  regard,  Krech  and  Crutchfield  (p.  410)  contended  that  "A  successful  in¬ 
dividual  typically  sets  his  next  goal  somewhat,  but  not  too  much,  above  his  last 
achievement.  "  Consequently,  the  model  provides  for  increments  in  the  compe¬ 
tence  of  crew  members  during  the  mission  simulation  as  a  function  of  perform¬ 
ance  and  aspiration  levels.  This  relationship  is  shown  in  the  first  box  of  flow  logic 
sheet  19  and  is  explained  in  a  subsequent  section  of  this  chapter  which  is  side  head¬ 
ed  "competence  upgrading.  " 

Stress 

Provisio.n  is  made  within  the  model  to  simulate  the  effects  of  certain  mani- 
festations  of  anxiety  and  stress.  Specifically,  differences  in  the  stress  tolerance 
of  individuals  are  simulated,  as  are  individual  anxiety  levels  and  ractions  to  anxi¬ 
ety/  stress. 

Stress  is  operationally  defined  as  the  ratio  of  the  amount  of  time  needed 
for  completion  of  the  current  event  to  the  amount  of  time  available  for  complet¬ 
ing  the  event.  This  value  is  calculated  for  each  event  (i.  e, ,  for  each  group  per¬ 
forming  the  event)  during  the  simulated  mission.  Stress  tolerance  is  simulated 
as  a  threshold,  STRM(M),  assigned  for  each  crew  member,  against  which  the 
stress  value  is  compared  in  order  to  determine  program  actions.  Stress  values 
which  are  below  threshold  are  considered  mild;  those  of  threshold  level  and  larg¬ 
er  are  considered  severe.  The  general  principle  implemented  is  for  mild  stress 
to  be  psychologically  organizing  or  facilitating,  while  severe  stress  is  disorgan¬ 
izing  or  debilitating.  This  representation  is  consistent  with  the  current  litera¬ 
ture  on  the  influence  of  stress  on  various  aspects  of  behavior.  A  number  of  oth¬ 
ers  (e.  g. ,  Harris,  Mackie,  &  Wilson,  1956;  Torrance,  1961;  and  Hare,  1962) 
have  reviewed  the  effects  of  stress  on  task  performance.  All  of  these  essenti¬ 
ally  concur  that  stress  exerts  a  beneficial  effect  up  to  a  particular  point,  but  be¬ 
yond  that  point,  stress  is  disorganizing. 
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Under  severe  stress,  performance  accuracy  is  expected  to  deteriorate. 

The  incidence  of  careless  errors  with  mounting  pressure  and  with  attempts  to 
save  time  is  a  common  observation.  It  is  confirmed  in  most  contemporary  psy¬ 
chological  views  of  anxiety  influences.  Accordingly,  when  an  operator's  current 
stress  reaches  the  level  of  his  stress  threshold,  the  probability  of  successful  task 
performance  is  reduced  or,  phrased  alternatively,  the  probability  of  error  is  in¬ 
creased.  When  stress  subsides  to  more  modest  levels  (below  the  threshold),  this 
effect  is  reversed. 

As  described  above,  stress  also  affects  the  operator's  level  of  aspiration. 

So  long  as  stress  remains  low  relative  to  the  stress  threshold,  aspirations,  when 
attained,  are  reset  higher.  When  stress  mounts  to  the  level  of  the  stress  thresh¬ 
old,  if  the  aspiration  level  is  not  attained,  it  is  reduced  to  the  level  of  current  per¬ 
formance.  This  influence  of  stress  on  the  level  of  aspiration  is  an  implementation 
of  Lewinian  psychology.  In  1942,  Lewin  wrote  that  "A  successful  individual  typi¬ 
cally  sets  his  next  goal. .  .  above  his  last  achievement - The  unsuccessful  individ¬ 

ual,  on  the  other  hand.  . .  becomes  intimidated  and  gives  up  reaching  out  toward 
higher  goals.  .  .  "  The  model  utilizes  stress  as  well  as  performance  records  in  dif¬ 
ferentiating  the  successful  from  the  unsuccessful  individual,  in  order  to  effect  its 
program  actions. 

Finally,  situational  events  can  influence  stress  loads.  In  particular,  emer¬ 
gency  situations  impose  considerable  stress  upon  all  who  are  party  to  them.  This 
very  obvious  effect  is  simulated  by  providing  for  the  possibility  of  increased  stress 
when  certain  selected  emergencies  occur. 

In  summary,  the  concept  of  a  stress  threshold,  as  defined  for  an  individual 
in  the  prior  model,  developed  by  Applied  Psychological  Services  for  the  Office  of 
Naval  Research  (Siegel  &  Wolf,  1969),  is  extended  in  the  present  case  to  apply  to 
the  group.  A  group  stress  threshold,  GSTRM,  is  calculated  as  the  average  of  the 
stress  threshold  values  of  the  men  assigned  to  the  group.  The  psychological  stress 
of  the  group  itself  in  accomplishing  the  event  is  now  determined. 

Psychological  stress  is  a  time -induced  function  dependent  on  the  time  avail¬ 
able  to  the  operator  and  his  expected  performance  time.  In  the  present  model, 
therefore,  if  no  event  time  limit,  TL(IE),  is  specified  as  input  data,  the  no  stress 
condition,  GSTR  =  1.  0,  applies.  If  a  time  limit  is  specified,  then  the  group  stress 
is  calculated  as: 


GSTR 


Expected  Performance  Time 
Time  Available 


X  Mental  Load  Factor 


where  GSTR  is  limited  between  1  and  5,  the  expected  performance  time  isADUR(IE), 
the  time  available  is  the  time  limit  less  start  time  =  TL(IE)-Z2,  and  the  mental 
load  factor  is  0.  875  +  LODM(IE)(0.  25).  This  mental  load  effect  is  represented 
graphically  in  Figure  2-5.  Here,  LODM(IE)  is  the  mental  load  input  code. 


MENTAL  LOAD,  LODM(IE) 


Figure  2-5,  Mental  load  effect. 


Event  Duration 

The  next  major  segment  of  the  processing,  which  represents,  in  a  sense, 
the  kernel  of  the  simulation,  is  the  calculation  of  the  duration  of  the  event.  It  in¬ 
volves  variables  such  as  stress,  goal  aspiration,  pace,  and  group  performance. 

If  the  event  is  known  to  be  of  fixed  duration,  ASD(IE)  =  0,  or  if  the  end  time 
of  the  event  is  fixed,  i.  e. ,  if  event  input  specifies  KE(IE)  =  1,  then  it  is  not  neces¬ 
sary  to  calculate  the  performance  time  and  those  variables  upon  which  it  is  other¬ 
wise  dependent.  In  such  cases,  the  processing  continues  with  circle  g  after  the  set¬ 
ting  of  the  performance  time,  PT(IE),  and  event  end  time,  ZC(IE).  In  preparation 
for  this,  the  calculation  of  group  performance  (event  success  percentage)  and  group 
aspiration  are  accomplished  next  as  the  averages  of  the  group  members'  individual 
values  for  these  respectively. 
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PERF(M)  =  Current  Performance  of  Each  Man 


Number  of  Successful  Events  Worked  On  Whole  Mission 
Total  Number  of  Events  Worked  On  Whole  Mission 

GPERF  =  Group  Performance  =  Average  of  Performance  of  the  Men  in  Group 

GASP  =  Group  Aspiration  ^  Average  of  Current  Aspiration  of  the  Men  in  Group 


Aspiration 

Provision  is  made  to  simulate  the  level  of  aspiration,  or  motivation,  of 
each  member  of  the  crew.  This  is  done  by  initially  assigning  individual  aspiration 
values  on  a  zero  to  one  scale,  permitting  those  values  to  affect  the  speed  of  per¬ 
formance,  and  then  adjusting  the  aspiration  values  as  a  function  of  operator  suc¬ 
cess  records  and  the  amount  of  stress  being  incurred. 

The  initial  aspiration  level  represents  the  performance  that  the  operator 
would  hope  to  attain- -the  ratio  of  the  number  of  event  successes  to  the  number  of 
attempts.  Thus,  an  operator  with  an  aspiration  value  of  1.  00  would  aspire  to  suc¬ 
ceed  in  every  one  of  his  task  attempts,  while  an  operator  with  aspiration  value  of 
0.  50  would  have  lower  motivation  and  would  be  viewed  as  considering  a  rate  of  one 
successful  attempt  in  two  as  acceptable. 

As  simulated,  the  level  of  a  man^s  aspiration  influences  his  working  pace 
and  stress,  and  is  in  turn  subject  to  the  influence  of  the  degree  of  stress  the  oper¬ 
ator  is  incurring  and  his  success  record.  Considered  are:  (a)  the  operator's  goal 
discrepancy- -the  difference  between  the  aspired  success  record  and  the  actual  re¬ 
cord,  and  (b)  the  difference  between  current  stress  on  the  operator  and  the  opera¬ 
tor’s  stress  threshold.  Comparison  of  the  goal  discrepancy  with  the  stress  differ¬ 
ential  provides  the  basis  for  the  reciprocal  influences  involving  level  of  aspiration. 
Five  discrete  circumstances  can  exist. 

Case  0  No  significant  goal  discrepancy 

Case  1  Positive  goal  discrepancy  (i.  e. ,  aspiration  in  excess 
of  actual  performance  record)  and  subliminal  stress 

Case  2  Zero  or  negative  goal  discrepancy  and  subliminal  stress 

Case  3  Positive  goal  discrepancy  and  stress  equal  to  or  greater 
than  threshold 

Case  4  Zero  or  negative  goal  discrepancy  and  stress  equal  to  or 
greater  than  threshold 


Through  the  five  cases  described  above,  the  level  of  aspiration  variable, 
a  motivational  variable,  can  be  seen  to  influence  working  pace  and  current  stress, 
while  being,  in  turn,  influenced  as  a  function  of  task  success  records  and  level  of 
stress.  The  reciprocal  and  dynamic  quality  of  the  variable  as  treated  in  the  mod¬ 
el  is  quite  consistent  with  aspiration  level  dynamics  as  described  by  such  writers 
as  Lewin  (1942)  and  Kelley  and  Thibaut  (1954). 

The  model's  logic  for  processing  each  case  is  shown  in  Table  2-2  below. 


Table  2-2 

Goal  Aspiration  Cases 


Aspi ration -Performance 
Case  Condition 


Stress  vs. Threshold 
Condi t i on 


Result 


0 

1 

2 

3 


GASP-GPERF  I  <  0.  02 


GPERF  <  GASP 
GPERF  >  GASP 
GPERF  <  GASP 


GSTR  <  GSTRM 
GSTR  <  GSTRM 
GSTR  >  GSTRM 


None 

Calculate  pact  adjustment  factor 

Reduce  aspiration  level 

Set  aspiration  =  performance 
Calculate  pace  adjustment  factor 


4  GPERF  >  GASP 


GSTR  >  GSTRM  Reduce  group  stress 


The  pace  adjustment  factor  is  calculated  as: 
Case  1:  PAF  =  1.  0  -  0.  4  (GASP  -  GPERF) 
Case  2:  PAF  =  1.  0+  0,  4  (GASP  -  GPERF) 


The  pace  adjustment  effect  is  shown  graphically  in  Figure  2-6.  Thus,  changes  in 
the  pace  due  to  this  adjustment  factor  are  a  linear  function  of  the  difference  between 
aspiration  and  actual  performance,  whe,re  lower  pace  values  indicate  faster  oper¬ 
ators. 


Case  1  presents  a  circumstance  which  will  be  recognized  as  predisposing 
positive  motivational  value- -the  operator  is  not  performing  as  well  as  he  would 
like  to,  yet  he  is  only  mildly  stressed,  if  at  all.  The  psychological  expectation 
is  that  he  would  strive  to  perform  better,  and  the  model  effects  this  by  reducing 
his  pace  value,  thus  simulating  his  working  faster. 

Case  2  further  illustrates  the  dynamic  aspect  of  level  of  aspiration,  both 
as  occurring  in  life  and  as  simulated  in  the  model.  Presented  is  a  zero  or  nega¬ 
tive  goal  discrepancy,  which  means  that  performance  has  at  least  equalled  oper¬ 
ator  aspiration,  and  stress  is  still  of  only  modest  magnitude.  Psychological  the¬ 
ory  (e.  g. ,  Deutsch,  1954)  indicates  that  under  these  conditions,  the  operator  would 
"raise  his  sights"  and  aspire  to  do  more,  since  he  demonstrated  to  himself  that  he 
has  easily  attained  the  initial  level.  In  this  regard,  Krech  and  Crutchfield  (1948) 
wrote: 


...a  successful  individual  typically  sets  his  next  goal  some¬ 
what,  but  not  too  much,  above  his  last  achievement.  In  this 
way  he  steadily  raises  his  level  of  aspiration.  Although  in 
the  long  run  he  is  guided  by  his  ideal  goal,...,  nevertheless 
his  real  goal... is  kept  realistically  close  to  his  present  po¬ 
sition. 

This  process  is  simulated  in  the  model  according  to  a  Monte  Carlo  procedure,  as 
described  in  the  next  chapter. 

Case  3  presents  a  circumstance  of  resignation.  The  operator  is  not  per¬ 
forming  as  well  as  he  would  like,  but  is  incurring  severe  stress.  Because  of  the 
severe  stress,  he  has  no  choice  but  to  accept  his  current  performance  level.  The 
model  effects  this  by  reducing  the  aspiration  value  so  that  it  equals  the  perform¬ 
ance  record.  The  simulated  operator  has  ceased  his  upward  striving  and  avoids 
the  severe  stress  by  accepting  his  current  performance.  However,  associated 
with  the  cessation  of  upward  striving,  with  the  "edge"  off  the  individual's  motiva¬ 
tion,  one  might  expect  to  observe  the  beginnings  of  a  partly  voluntary  and  partly  in¬ 
voluntary  deterioration  in  performance.  This  effect  is  simulated  in  the  model  by 
also  increasing  the  pace  value,  thus  slowing  down  the  rate  at  which  the  operator 
performs  his  tasks. 

In  case  4.  current  stress  is  altered.  Specifically,  Case  4  presents  the  cir¬ 
cumstance  of  performing  equalling  or  exceeding  operator  aspiration,  but  stress  be¬ 
ing  substantial.  That  is,  the  operator  is  incurring  severe  stress,  despite  the  fact 
that  he  has  attained  the  level  of  performance  he  set  for  himself.  It  seems  reason¬ 
able  that  as  he  reviews  his  success  record,  he  stops  "sweating  it"  quite  so  des¬ 
perately,  for  he  has  demonstrated  that  he  can  attain  his  aspiration  level.  In  the 
model,  this  is  simulated  by  reducing  the  operator's  current  stress  by  ten  per  cent. 


In  case  2,  the  increase  in  aspiration  level  is  randomized  to  be  equiprobable 
between  a  zero  and  10  per  cent  increase.  In  case  4,  the  group  stress  reduction  is 
always  a  10  per  cent  reduction. 


GOAL  ASPIRATION -GROUP  PERFORMANCE 


Figure  2-6,  Pace  adjustment  effect. 


Working  Pace 

The  ISM  model  simulates  differences  in  the  pace,  or  the  speed,  at  which 
each  of  the  various  crew  members  works.  This  variable  is  intended  to  sum¬ 
marize  and  represent  individual  differences  which  determine  how  quickly  an  in¬ 
dividual  performs  a  job.  Speed  of  event  performance  is  treated  in  the  model  in¬ 
dependently  from  the  accuracy  of  performance.  The  pace  variable  is  one  of  the 
means  by  which  the  speed  of  performance  is  simulated. 


Each  member  of  the  simulated  crew  is  initially  assigned  a  value  to  repre¬ 
sent  his  normal  working  pace,  PACE(M).  The  assignment  is  made  by  the  com¬ 
puter,  through  random  draw  from  a  normal  distribution  of  values  with  a  mean 
equal  to  the  input  parameter  Average  Crew  Pace,  ACP,  and  standard  deviation  of 
0.  11.  The  concepts  reflected  in  this  distribution  are  establishment  of  unity  as  the 
"normal  working  pace"  in  the  general  population,  and  expressing  variations  from 
the  norm  in  such  a  way  as  to  satisfy  a  2:1  ratio  between  the  characteristic  paces 
of  the  slowest  operator  and  the  fastest.  From  the  distribution  described  above,  an 
extremely  slow  worker  would  be  represented  by  a  value  in  the  realm  of  three  stand¬ 
ard  deviations  above  the  mean,  or  PACE(M)  =  1.  33,  an  extremely  rapid  worker  by 
a  value  in  the  realm  of  three  standard  deviations  below  the  mean,  or  PACE(M)  = 

0.  67,  a  very  close  approximation  to  2:1.  Such  a  range  of  differences,  although 
seemingly  large,  is  consistent  with  fairly  fundamental  psychological  observations; 
for  example,  "Wechsler  shows  that  the  range  of  most  physical  and  mental  activities 
vary  as  2  to  1.  .  .  [  Barnes,  1954,  p.  353,  in  reference  to  one  of  David  Wechsler' s 
(1935)  early  works] .  " 

A  value  for  the  pace  of  the  group  on  each  variable  time  event  (GPACE)  is 
calculated  as  the  average  of  the  pace  values  for  the  men  in  the  group.  The  purpose 
of  the  pace  variable  then  is  to  influence  the  time  worked  by  a  group  on  each  simu¬ 
lated  variable  time  event.  Ignoring  other  factors  for  the  moment,  it  is  desired  that 
a  slower  group  (say  one  with  a  group  pace  value  1.  1)  would  take  ten  per  cent  longer 
than  nominal  and  a  faster  group,  with  pace  value  of  0.  75,  would  perform  the  task 
in  three -fourths  of  its  nominal  execution  time,  plus  or  minus  the  stochastic  effect. 
Thus,  the  group  pace  value  functions  in  the  model  as  a  multiplicative  modifier  of 
the  execution  time  assigned. 

Fatigue  affects  the  speed  of  task  performance  as  well  as  the  quality  of  per¬ 
formance  (Ghiselli  &  Brown,  1955,  p.  249).  Its  influence  on  quality  has  been  de¬ 
scribed  and  its  influence  on  speed  is  represented  in  a  very  similar  way.  The  read¬ 
er  will  recall  that  fatigue  builds  as  a  function  of  the  amount  of  time  since  the  oper¬ 
ator  last  slept,  and  as  a  function  of  tasks  performed  in  that  interval.  After  each 
event,  a  current  fatigue  level  is  calculated  and,  via  the  physical  capability  vari¬ 
able,  is  employed  to  alter  the  operator's  existing  pace  value.  The  nature  of  the 
alteration  is  to  increase  pace  values  with  the  buildup  of  fatigue  (decrease  in  physi¬ 
cal  capability),  thus  rendering  more  slow  the  execution  time  for  subsequent  work 
as  the  operator  becomes  more  tired. 


Group  Pace  Calculations  ^ 

In  the  simulation,  the  work  speed  of  the  group  for  an  event,  termed  its 
pace,  is  determined  as  the  product  of  three  factors.  The  primary  influence  is 
the  average  of  the  individual  pace  values,  PACE(M),  of  the  men  assigned  to  the 
event.  The  second  is  the  pace  adjustment  factor  just  discussed  and  shown  in  Fig- 
ure  2-6.  The  third,  called  the  slowness  factor,  SF,  is  dependent  on  the  value  of  • 

physical  capability,  PCC(M),  of  each  group  member,  as  shown  in  Figure  2-7. 

This  figure  indicates  no  effect  on  operator  speed  for  an  average,  PCC(M)  =  1  val¬ 
ue,  but  that  operator  speed  is  halved  when  physical  capability  is  completely  de¬ 
graded  and  doubled  when  PCC(M)  reaches  a  maximum  limit  value  of  2.  Thus,  fa¬ 
tigue,  sleep,  and  overexertion  elements  enter  the  pace  computation  which,  in  turn, 
influences  performance  time.  • 
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Event  Performance  Time 


Three  factors  comprise  the  performance  time,  PT(IE),  calculation  for 
scheduled  events.  The  first  is  a  value,  V,  selected  from  the  normal  distribution 
#  with  mean,  ADUR(IE),  and  standard  deviation,  ASD(IE),  both  given  as  input.  The 

second  factor  is  ZIJ.  The  group  stress  and  group  stress  threshold  influence  the 
ZIJ  value  and  thence  performance  time,  as  shown  in  Figure  2-8. 


Figure  2-8.  Stress  effect. 


The  result  is  a  value,  ZIJ,  which  is  a  multiplicative  factor  for  V  in  the  determina¬ 
tion  of  performance  time.  The  third  factor  entering  this  calculation  is  the  group 
pace  value,  GPACE,  just  discussed.  Thus,  performance  time  is  calculated  as: 
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PT(IE)  = 


(V)(ZIJ)(GPACE)  if  GSTR  <  GSTRM 

GRACE  [V(2GSTR-GSTRM+  1  -  ADUR(IE)  •  (GSTR  -  GSTRM)] 

if  GSTRM  <  GSTR  <  GSTRM  +  1 

GRACE  [3V  -  ADUR(IE)]  if  GSTR  >  GSTRM  +  1 


and  is  limited  to  lie  between  0  and  4  ADUR(IE). 


A  modified  calculation  for  V  is  employed  for  repair  events.  In  studies 
which  pay  particular  attention  to  repair  time,  it  is  conventional  to  assume  a  log¬ 
arithmic  normal  distribution.  This  gives  a  probability  density  function  that  rises 
steeply  for  small  values  and  is  less  accentuated  for  large  values  as  shown  belowi 


Then,  In  t  is  normally  distributed.  The  difference  from  normal  distribution  is 
that  the  program  generates  a  random  value  of  In  t  from  a  normal  distribution  and 
then  the  exponential  of  this  value  of  In  t  is  the  random  value  of  t. 


The  following  describes  the  computation  involved  in  choosing  appropriate 
values  of  mean  and  standard  deviation.  If  y  =  In  x  is  normally  distributed  with  a 
mean  (u  and  standard  deviation  cr,  then  x  will  have  mean  ^ 


t  - 


M  +  0-2/2 

e 


and  variance: 

<  =  (e"'-  1) 

i.  e.  , 


ADUR(IETY)=  ^ 
TEM  3  =  cr 

ASD(IETY)  =0-^ 


mean  of  logarithm  of  repair  time 
mean  of  repair  time 

standard  deviation  of  logarithm  of  repair  time 
standard  deviation  of  repair  time 


Solving  the  above  equations  forp  and  cr  by  algebraic  step  we  determine: 


TEM  1 


and  determine  ju  by: 


TEM  2  =  e 


Then  fd  and  cr  are  used  with  normal  random  deviate  intrinsic  function, 
and  exponential  of  this  result  is  the  random  repair  time. 


In  FORTRAN  notation: 


TEMl 


rASD(IETY)]^ 

[ADUR(IETY)]2 


ADUR(IETY)  4 

TEM  2  =  — ^  ■  ■■ 

Vtem 1  Vtem 1 

TEM  3  =  Vln  TEM  1  =  o- 

Then: 

^  _  g  (In  TEM  2+  RD  VlnTEMl  ) 

which  is  used  only  for  repair  events. 

Following  determination  of  event  performance  time,  the  time  of  day  at 
which  the  event  was  completed,  ZC(IE),  is  calculated  as  event  start  time  plus 
performance  time  =  Z2  +  PT(IE).  If  completion  time  is  later  (larger)  than  the 
time  limit  for  the  event,  TL(IE),  given  as  input,  then  the  event  is  assumed  to 
last  only  until  TL(IE),  i.  e. ,  ZC(IE)  =  TL(IE)  and  PT(IE)  =  TL(IE)  -  Z2(IE). 
The  balance  of  the  unworked  time  is  tallied  as  unmanned  station  hours,  USH. 

If  the  event  time  exceeds  24,  then  PT  =  24  -Z2  so  that  no  events  will 
carry  over  to  the  next  day.  In  this  case,  ZC  =  24. 


Beginning  with  circle  g  in  the  flow  chart,  a  variety  of  additional  event 
bookkeeping  calculations  are  completed  based  upon  availability  of  the  value  of 
performance  time. 

First,  for  each  equipment  used  in  the  event  the  cumulative  equipment  up 
time  and  down  time  (for  the  current  day)  are  revised.  For  scheduled  and  emer¬ 
gency  events  (in  which  equipment  is  assumed  operational)  up  time  for  each  equip¬ 
ment  is  simply: 


CUT(IQ)  =  CUT(IQ)+  PT(IE) 


For  each  repair  event,  the  duration  of  which  is  assumed  to  represent  an  equipment 
inoperability  period,  cumulative  equipment  down  time  is  : 

CDT(IQ)  =  CDT(IQ)+  PT(IE) 


A  sum  of  actual  repair  times  (event  times  for  repair  events)  is  maintained  for  each 
equipment  as; 


CART(IQ)  =  CART(IQ)+  ADUR(IE) 


Next,  performance  level,  the  equivalent  of  MTBF,  is  calculated  for  each 
equipment  as: 


EPL(IQ) 


CUT(IQ) 

CUT(IQ)+  CDT(IQ) 


The  time  since  last  sleep,  HSLS(M),  is  augmented  for  each  working  group 
member  by  adding  the  performance  time  for  the  event.  Then  the  tally  of  time 
worked  for  the  day,  for  each  group  member,  TW(M),  is  revised,  and  the  last  time 
of  day  worked,  Z(M),  is  set,  for  each  group  member,  equal  to  the  event  comple¬ 
tion  time,  ZC(IE).  Then  the  number  of  calories  expended  on  this  event  by  each 
man,  CCAL(M),  is  calculated  to  be  equiprobable  between  0.  95  and  1.  05  times  the 
product  of  IEC(IE,  NT)  and  PT(IE).  Next,  the  total  number  of  calories  expended 
since  last  sleep,  ACAL(M),  is  adjusted  by  adding  a  current  event  calorie  value, 
CCAL(M).  The  CCAL(M)  value  is  also  used  in  accumulating  the  tally  of  calories 
expended  by  each  group  member  for  the  current  day,  IDC(M). 

Next,  the  crew  mental  load  is  cumulated  in  load-time  units.  Given  the 
mental  load  code,  LODM(IE),  which  specifies  the  graduated  load  scale  and  which 
applies  during  the  period  of  event  performance,  PT(IE),  the  value  LODM(IE)- PT(IE)^ 


is  added  to  prior  values  to  summarize  current  crew  mental  load  units. 

Similarly,  the  event  hazard  class  code  IH(IE)  is  multiplied  by  PT(IE)  to  pro¬ 
vide  a  measure  of  hazard  units,  EH,  accumulated  as  TEH  for  later  calculation  of 
the  safety  index  on  a  daily  basis. 

Performance  Adequacy 

Having  determined  the  values  for  all  of  the  variables  affecting  the  perform¬ 
ance  of  the  event,  the  adequacy  of  the  performance  may  now  be  determined.  The 
following  four  variables  are  considered  for  each  man  in  the  group  associated  with 
the  performance  of  the  event; 


Variable _ Range  of  Values 


stress 

1-5 

competence 

0-1 

physical  capability 

0-2 

aspiration 

0-1 

With  each  of  these  variables,  the  model  associates  a  function  for  the  work 
group  which  varies  from  0-1,  in  which  unity  represents  perfection.  These  four 
functions  are  then  combined  to  obtain  an  overall  measure  of  how  well  the  group  per¬ 
formed.  The  function  for  effectivity  (goodness)  of  stress  is  given  below  and  shown 


in  Figure  2-9. 

/  (l-BE)GSTR 

if  GSTR  <  GSTRM 

1  GSTRM-1.0 

p,c  _  /  5-GSTR 

if  GSTRM  <  GSTR  <  5 

]  5-GSTRM 

\  ° 

if  GSTR  >  5 

1 


BE 


Effectivity 

of 

Stress,  ES 


GSTRM 

Group  Stress,  GSTR 


Figure  2-9.  Stress  effectivity. 


The  effectivity  function  for  competence,  EC,  utilizes  the  values  of  crew 
member  competence,  TPCOM(M),  previously  degraded  as  a  function  of  sea  state 
and  provides  for  added  weight  to  be  given  to  the  competence  of  the  leader, 
TPCOM(LI),  as  shown  below: 


EC 


(2rTPCOM(LI)1  +  STPCOM(M)) 
IG  +  2 


Here,  the  summation  is  taken  over  all  members  of  the  group.  This  represents 
an  average  competence  value  for  the  group  in  which  the  leader's  competence  has 
been  given  two  extra  weighted  shares.  In  the  determination,  TPCOM(M)  is  se¬ 
lected  as  either  the  competence  in  the  primary  specialty,  TPCOM(M),  or  in  the 
secondary  competence,  TSCOM(M),  depending  upon  the  actual  assignment  of  the 
men  during  the  event. 
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In  the  situation  of  a  repeat  (second  try)  of  an  event  due  to  failure  to  per¬ 
form  satisfactorily  the  first  time,  0.  2  is  added  to  EC  on  the^  repeat  to  simulate  a 
short  term  increase  in  the  effectivity  for  group  competence.  This  increase  is  jus¬ 
tified  since  the  group  has  worked  recently  together  and  has  had  the  benefit  of  im¬ 
mediate  experience. 

The  effectivity  for  the  physical  capability,  EF,  is  set  equal  to  the  group 
physical  capability  value  itself,  GPCC,  if  less  than  one,  and  is  set  equal  to  unity 
if  GPSS  exceeds  unity. 

The  fourth  and  last  function  is  the  effectivity  of  aspiration,  EA.  It  is  treat¬ 
ed  like  competence,  with  the  leadership  aspiration  receiving  extra  weight,  as  fol¬ 
lows: 


EA  -  (2rCASP(LI)1  +  SCASP(M)) 
IG  +  2 


In  order  to  calculate  from  these  four  measures  a  single  value  for  perform¬ 
ance  adequacy,  the  following  formula  is  used: 


V3(ES)(EC)+  (ES)(EF)+  (ES)(EA)+  3(EC)(EF)+  3(EC)(EA)+  (EF)(EA) 

12 


which  simplifies  to: 


PA 


V3(EC)(ES+  EF+  EA)+  ES(EF+  EA)+  (EF)(EA) 

12 


A  potential  degration  in  this  value  of  PA  is  taken  into  consideration  if  the 
current  event  is  either  a  repair  or  emergency.  If  such  is  the  case  and  if  the  com¬ 
puted  duration  of  the  event,  PT(IE),  exceeds  the  maximum  (target)  duration  of  that 
event  which  is  provided  as  an  input,  then  PA  is  degraded  by  the  ratio  of  DTR(IQ)/ 
PT(IE)  for  repair  events  or  DTE(K)/ PT(IE)  for  emergencies. 


Event  Performance  Efficiency 

For  later  use  in  determining  mission  performance  efficiency,  a  running 
sum  is  maintained  of  performance  efficiency  values  for  each  event. 


Efficiency 


event  essentiality  x  performance  adequac.i 
performance  acceptability  level 


This  efficiency  function  is  calculated  for  each  event.  It  is,  essentially,  a  ratio 
of  actual  event  results  (performance  adequacy  weighted  by  event  essentiality)  to 
the  level  of  performance  acceptable  to  the  supervisor.  The  cumulative  sum  of 
event  performance  efficiencies,  SEF,  is  calculated  as  a  function  of  the  perform¬ 
ance  adequacy,  the  event  importance  (essentiality  value),  lESS(IE),  the  leader's 
aspiration,  CASP(LI),  and  the  constant,  K7,  which  indicates  the  level  of  accept¬ 
able  performance,  described  below,  as  follows; 


SEF 


SEF  + 


PA  •  lESS(IE) 
CASP(LI)  •  K7 


Also,  a  similar  rvinning  sum  of  event  essentiality  values,  ISIE,  is  maintained  for 
the  day. 

Ilecal  eulation  of  FCC(M)  and  FAT(M) 

The  values  of  physical  capability  and  time  fatigue  are  now  adjusted  in  the 
same  manner  as  was  described  previously  for  each  group  member  who  participated 
in  the  event  simulated.  The  prior  calculation  is  required  only  if  there  was  a  time 
interval  between  the  prior  event  and  the  current  event.  However,  the  calculation  is 
not  required  in  every  case.  It  represents  an  updating  of  values  as  a  result  of  time 
worked  on  the  current  event,  TW(IE),  and  the  new  values  represent  the  situation  at 
the  end  of  the  current  event.  The  fatigue,  FAT(M),  the  physical  capability  of  each 
man  in  the  group,  PCC(M),  and  the  group  physical  capability,  GPCC,  are  calculated 
as  previously  described. 


Adjustment  of  Consumables 

The  revised  level  of  consumables  available  is  determined  next.  First,  the 
•  actual  amount  of  consumables  expended  is  calculated  either  as  a  function  of  event 

performance  time  and  expenditure  rate  or  on  a  unit  expenditures  basis.  Then  prior 
values  of  the  L  consumables,  KON(L),  are  adjusted  to  account  for  consumption  dur¬ 
ing  the  event. 
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Since  the  rate  of  expenditures  for  some  events  is  more  logically  given  in 
terms  of  usage  units  per  event  rather  than  per  hour,  the  logic  of  the  model  con¬ 
siders  both  types  of  expenditures  independently.  Accordingly,  for  "unit"  events 
the  current  level  of  expenditures,  KONCl(Ll)  is: 

KONCl(Ll)  =  KONCl(Ll)-  IRCl(Ll) 


where  IRC  (LI)  is  the  number  of  units  expended  per  event. 

For  events  in  which  expenditures  are  accounted  in  terms  of  units  per  hour, 
the  corresponding  effect  is  accomplished  by  multiplying  the  rate  of  expenditure  of 
each  consumable  by  the  duration  of  the  event  and  cumulatively  subtracting  the  prod¬ 
uct  from  current  values  for  each  consumable: 


KONC(L)  -  KONC(L)  -  IRC(L,  lET)  •  PT(IE) 


Event  Success  or  Failure  Determination 

Performance  adequacy,  just  calculated,  is  an  important  element  in  deter¬ 
mining  the  success  or  failure  of  the  performance  of  an  event.  An  initial  estimate 
of  a  criteria  for  success  might  be  whenever  performance  equals  or  exceeds  the 
leader^ s  expectation,  i.  e. ,  when  PA  >  CASP(  LI).  However,  it  must  be  conceded 
that  a  team's  leader  will  be  willing  to  accept  "something  less"  than  his  own  per¬ 
formance  aspiration  value  as  constituting  acceptable  performance  for  a  group  of 
his  peers  or  subordinates.  Thus,  the  model  uses  the  constant  K7  for  this  "some¬ 
thing  less"  and  defines  an  event  to  be  successful  whenever: 

PA  >  [CASP(LI)]K7. 


Performance  Level 

After  determining  performance  adequacy,  the  model  increases  by  one  the 
tally  of  the  number  of  successes  or  failures,  as  appropriate  for  each  man  who 
worked  on  the  event.  These  tallies  are  NOSUC(M)  and  NOFAIL(M)  and  are  accumu¬ 
lated  over  the  entire  mission  iteration.  A  new  performance  value,  PERF(M),  for 
each  man  who  worked  on  the  event  is  now  determined  as  the  ratio  of  the  number  of 
successes  to  all  events  in  which  he  has  participated. 


Event  Results  Recording 

Next,  the  results  of  a  single  completed  event  are  optionally  recorded  for 
later  printing.  If  the  option  to  record  detailed  event  results  is  taken  (print  option  5, 
IND(5)  =  1),  the  results  are  recorded  and  printed  for  analysis.  Included  in  the 
printout  are  the  following  results  for  each  event:  successful/ unsuccessful,  men 
available,  start  time  allowed,  prior  event  requirements  time  finished,  event  start 
time,  event  duration,  event  end  time,  unmanned  hours,  group  stress,  physical  cap¬ 
ability,  pace,  aspiration,  performance  adequacy,  hazard,  consumables  used  and 
remaining,  men  on  the  job,  and  each  man's  fatigue,  physical  capacity,  hours  work¬ 
ed  (cumulative),  calories  expended  on  this  task,  calories  expended  (cumulative) 
hours  since  sleep,  idle  hours,  hours  slept,  cumulative  performance,  and  aspira¬ 
tion,  as  shown  in  Figure  2-10. 

The  printout  for  each  event  performed  is  concluded  with  data  on  each  man 
who  was  assigned  to  the  event.  Here,  an  asterisk  in  the  LDR  column  identifies  the 
work  group  leader. 


Failure  Processing 

In  the  case  of  an  event  which  is  unsatisfactorily  performed,  the  repeat-touch- 
up  code,  R/TU(IE),  of  the  input  data  determines  whether  the  entire  event  is  to  be 
resimulated  (repeated)  or  whether  it  is  to  be  partially  redone  (touched  up).  If  the 
event  is  coded  as  1  (repeat),  a  second  try  is  accomplished  by  returning  to  circle  g 
in  the  processing  flow  chart.  Only  one  such  repetition  is  allowed  for  any  event  oc¬ 
currence.  If  the  second  attempt  is  also  unsatisfactory,  the  processing  continues  at 
circle  1>. 

If  the  event  is  coded  as  2  (touchup),  a  second  try  is  simulated  during  which 
the  performance  time  is  set  equal  to  one -half  of  the  value  of  the  performance  time 
previously  calculated.  Again,  second  try  processing  begins  at  circle  g. 

If  the  failure  processing  code  is  a  3  (no  repetition  permitted),  the  processing 
continues  at  circle  h,  and  the  processing  is  the  same  as  that  which  takes  place  after 
a  task  repetition  or  touchup. 


End-of-Day  Processing 

Then,  at  circle  h  of  the  model  flow  chart,  a  check  is  made  to  determine 
®  whether  or  not  the  current  event  being  simulated  represents  the  last  event  of  the 

day.  If  the  event  which  has  just  been  simulated  is  not  the  last  event  of  the  day, 
then  the  next  event  is  selected  as  a  function  of  the  pointer  and  the  probability  of 
each  of  the  three  alternative  paths,  PRB(IE,  lA),  given  as  input  data.  The  pro¬ 
cessing  returns  to  circle  d  to  begin  the  simulation  of  the  next  event  in  turn. 
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If  the  event  just  simulated  is,  in  fact,  the  last  one  of  the  day,  then  the 
computations  continue  with  the  determination  and  summarization  of  several  end- 
of-day  conditions.  These  are: 


average  physical  workload 

APW(M) 

each  man 

primary  competence 

PCOM(M) 

each  man 

current  crew  competence 

ccc 

crew 

physical  incapacity 

PI 

each  man 

safety  index 

SI 

crew 

crew  mental  load 

CML 

crew 

average  equipment  performance  level 

AEPL 

crew 

equipment  performance  efficiency 

EPEFF 

equipments 

system  performance  efficiency 

PEFF 

system 

system  reliability  level 

SRL 

system 

system  performance  level 

SPL 

system 

system  global  effectiveness  measure 

SGEM 

system 

Average  Physical  Workload 

As  a  measure  of  under/ over  exertion  for  each  man  in  the  crew,  the  value  of 
average  physical  workload,  APW(M),  is  calculated.  It  is  determined  for  each  crew 
member  as  follows: 


APW(M)  = 


calories  expended  during  day’s  work 
calories  per  this  man’s  average  day 


_ no.  of  hours  worked 

no.  of  hours  in  average  workday 


IDC(M)  TW(M) 
CAL(M)  ^  WORKl 


This  variable  provides  a  measure  of  load  on  personnel,  and  in  that  regard  may  be 
partially  redundant  with  the  unadjusted  number  of  hours  worked  each  day. 


Comp  e  tence  Upgrading 

To  implement  crew  learning  in  the  course  of  a  simulated  mission,  the  logic 
calls  for  increases  in  primary  competence  on  a  daily  basis  for  each  crew  member 
whose  competence  in  his  primary  specialty  is  less  than  his  current  aspiration.  The 
mission  is  assumed  to  be  sufficiently  short  so  that  no  degradation  of  competence 
occurs  in  an  unused  skill,  and  it  is  assumed  that  failure  in  performing  an  event 
does  not  degrade  competence. 


The  competence  upgrading  scheme  is  based  on  the  work  of  DeJong  (1957) 
and  of  Crossman  (1959).  Of  particular  importance  was  the  work  of  Blackman 
(1936)  and  Crossman  (1956),  which  indicated  that  performance  proficiency  (here 
termed  competence)  on  a  given  task  (event)  continued  to  increase  even  after  10,  000 
’’trials.  ” 


In  updating  TPCOM(M)  at  the  end  of  each  day  for  man  M,  the  following  for¬ 
mula  was  developed: 

TPCOM(M)  =  PCOM(M)+  [CASP(M)  -  TPCOM(M)]nU(M)[0.  001 7] 

where  NU(M)  is  the  number  of  successful  events  participated  in  by  man  M  on  day 
ND.  The  constant,  0.  0017,  was  determined  by  the  condition  that  in  30  days, 
PCOM(M)  shall  not  increase  by  more  than  0.  1  from  an  initial  value  of  0,  75,  based 
upon  80  events  per  day  for  a  given  M  with  a  maximum  value  of  unity  for  CASP(M) 
representing  optimum  aspiration. 

Table  2-3  gives  results  for  PCOM(M)  for  the  constant  selected: 


Table  2-3 

Maximum  TPCOM  after  Various  Numbers  of  Days 


Number  of  Days 

PCOM(M) 

0 

.  7500 

10 

.  7892 

20 

.  8222 

30 

. 85005 

50 

.  89335 

100 

.  9545 

200 

.  9917 

After  a  new  value  of  primary  competence  that  has  been  calculated  for 
each  man  in  the  crew,  a  current  crew  competence,  CCC,  is  determined  as  the 
average  of  the  individual  values. 


End-of-Day  Performance  Measures 

Table  2-4  presents  a  summary  of  the  end-of-day  measures  calculated  to 
summarize  human,  equipment  and  system  performance. 
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To  recognize  the  importance  of  equipment  performance  in  the  total  mis¬ 
sion  effectiveness  measures,  two  values  are  calculated  at  the  end  of  each  simu¬ 
lated  mission  day.  This  serves  to  quantify  how  well  the  ship's  equipment  perform¬ 
ed  during  the  day.  The  first  such  measure,  the  average  equipment  performance 
level,  AEPL,  is  merely  the  average  of  EPL  values  taken  over  all  equipments. 

The  second  is  the  equipment  performance  efficiency,  EPEFF,  calculated  as  AEPL 
times  the  ratio  of  the  sum  of  average  repair  duration  input  data  value,  ADUR(IET), 
for  the  day's  repair  events  to  the  sum  of  actual  repair  times  for  these  same  events. 
As  such,  it  represents  a  measure  of  equipment  performance  based  on  simulated 
repairs  each  day. 

Next,  the  human  performance  efficiency  for  the  simulated  day  is  calculated. 
It  is  the  sum  of  three  factors.  The  first  and  most  basic  is  the  ratio; 

sum  of  event  performance  efficiency  values  =  SEF 
sum  of  event  essentiality  values  =  ISIE 


This  factor  then  measures  the  effect  of  performance  adequacy,  leader's  aspiration, 
and  K7  values  over  the  events  performed  for  the  day.  The  second  is  a  factor  which 
measures  degradation  due  to  the  total  amotmt  of  unmanned  station  hours  for  the 
day  normalized  by  dividing  by  the  total  number  of  crew  working  hours: 

_  USHT 
^  (ICXWORKl) 


The  last  factor  is  a  degradation  of  human  performance  efficiency  due  to  the  extent 
to  which  events  were  ignored. 


NIGR 

NTE 


where  NIGR  is  the  number  of  events  ignored  and  NTE  is  the  total  number  of  events 
simulated  during  the  day. 

In  order  to  calculate  system  reliability  level,  SRL,  combining  both  human 
and  equipment  reliability  measures,  the  range  of  variation  of  each  was  normalized. 
Here,  it  was  assumed  that  the  average  performance  over  all  men  in  the  crew  would 
be  in  a  range  from  0.  65  to  1.  0,  i.  e. , 

IC 

0.  65  <  X  =  S  PERF(M)  <1.0. 

M=1 


This  range  of  values  and  the  values  for  the  equipment  reliability  range  were  select¬ 
ed  initially  on  the  basis  of  judgment  as  to  anticipated  results  from  the  model.  How¬ 
ever,  additional  experience  is  required  to  confirm  them  and,  therefore,  they  are 


subject  to  change.  It  is  anticipated  that  such  change  will  be  implemented  to  allow 
a  wider  range  for  equipment  (hardware)  reliability.  Then,  a  new  value,  = 

X  -  0.  65/l“0.  65,  was  defined  whose  range,  based  on  X,  would  be  from  0  to  1. 
Similarly,  on  the  basis  of  an  estimation  that  the  variable  AEPL,  average  equip¬ 
ment  performance  level,  would  lie  in  the  range  from  0.  9  to  1.  0,  i.  e. ,  0.  9  <  Y  = 
AEPL  <  1.  0,  a  new  variable  =  Y  -  0.  9/1  -  0.  9  was  defined.  This  variable  is 
based  on  Y,  whose  range  would  be  the  same  as  that  of  Xh  What  is  desired  is  the 
combination  of  X  and  Y  in  such  a  way  that  the  result,  SRL,  would  be  expected  to 
lie  in  the  selected  range  0.  7  to  1.  A  concave  relationship  was  selected  for  the 
combination: 

=  X'  •  Y» 


Then,  converting  by  linear  scaling  we  have: 

Z  =  0.  7+  Z»(l  -0.  7) 


Thus,  Z*  will  vary  between  0  and  1  when  Z  varies  between  0.  7  and  1.  0,  and  to  ob¬ 
tain  Z,  we  have: 


Z  =  SRL  =  0.  7+  (X»  •  Y»)(l -0.  7) 

SRL=  0.  7  +  8.  571(X  -  0.  65)(Y  -  0.  9). 

A  corresponding  treatment  was  given  in  the  calculation  of  system  perform¬ 
ance  level,  SPL,  from  PEFF  and  EPEFF: 


SPL=  0.  7  +  8.  571  (PEFF  -  0.  65)(EPEFF  -  0.  9). 


To  combine  SRL  and  SPL,  each  of  which  varies  from  0.  7  to  1.  0,  a  convex 

treatment  was  selected.  This  combinatorial  technique  is  also  subject  to  revision. 
Here  we  let: 


SPL  =  P'  = 
SRL  =  Q'  = 


P-  0.  7 
1  -  0.  7 

Q-0.  7 
1  -  0.  7 


R.  y  (P')^  +^(q^f~ 

(It  is  noted  that  SPL  and  SRL  are  figures  of  merit  or  "scores"  calculated  on  a  known 
but  arbitrary  scale.  They  are  not  probabilities  as  such.  ) 
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Then, 

equals: 


the  combination  of  SRL  and  SPL,  called  general  system  measure. 


SGEM  =  R  =  0.  7  +  R'  (1  -  0.  7) 
=  0.7  + 


I 


(SRL 


0.  7)2  +  (SPL-0.  7)2 
2 


This  measure,  like  SRL  and  SPL,  is  a  "figure  of  merit"  or  "index  of  effectiveness" 
rather  than  a  probability  measure.  Further  work  is  anticipated  relative  to  the  re¬ 
finement  of  a  total  effectiveness  measure. 


Physical  Incapacity 

Except  on  the  last  day  of  the  mission,  the  calculation  of  physical  capability 
is  now  performed  again  in  the  same  way  as  described  above  under  the  heading  "Crew 
Formation  and  Initial  Value  Selection.  "  Here,  again,  at  the  end  of  each  day  of  the 
mission  (except  the  last),  a  determination  is  made  regarding  which  crew  members 
are  to  be  simulated  as  degraded  (sick)  and,  if  so,  how  much,  and  for  how  many 
days.  The  only  added  processing  required  at  the  end  of  the  day  is  the  bookkeeping 
to  reduce  the  duration  of  the  incapacity,  PI2  (M),  by  one  day  for  each  man  already 
incapacitated.  If  PI2(M)=  0,  indicating  that  crew  member  M  was  not  incapacitated 
in  the  preceding  day,  then  PI(M)  =  1.  0.  If  PI2(M)  5  1,  indicating  the  duration  of  the 
crew  member's  incapacitation,  then  PI2(M)  is  decreased  by  unity  and  his  incapacity 
level  is  indicated  by  PI(M). 


Safety  Index 


Another  end-of-day  processing  calculation  is  the  determination  of  a  safety 
index,  SI,  for  the  crew.  This  index  is  formed  as  a  function  of  the  event  hazard 
codes  assigned  to  events  performed  during  the  day  and  of  the  length  of  time  spent 
in  each  of  these  hazard  classifications.  A  safety  index  of  unity  is  optimum,  that  is, 
minimum  hazard  conditions  possible;  a  safety  index  value  of  zero  indicates  the 
worst  possible  hazard  conditions. 

The  event  hazard  values  for  all  events  of  the  day  are  cumulated  and  called 
total  event  hazard,  TEH.  This  value  is  then  divided  by  the  total  maximum  possible 
value  for  the  daily  event  hazard.  The  ratio  is  called  the  hazard  ratio: 

total  event  hazard  for  day 
~  maximum  possible  hazard  for  day 


TEH 

9(THW) 


IC 

where  THW,  the  total  hours  worked,  =  ^_^TW(M). 
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Having  determined  the  hazard  ratio,  the  computer  then  determines  the  safety  in¬ 
dex  as  follows: 


SI  =  |(1-HR). 

This  relationship  is  shown  in  Figure  2-11  and  is  based  on  the  fact  that  event  hazard 
assumes  values  from  1  to  9. 

Thus,  the  index  equals  zero  when  all  event  time  is  spent  in  a  maximum  haz¬ 
ard  condition  and  equals  unity  when  all  event  time  is  spent  under  minimally  hazard¬ 
ous  conditions. 


Figure  2-11.  Safety  index. 


A  revised  scaling  of  crew  mental  load  is  accomplished  so  as  to  be  consis¬ 
tent  with  0  to  1  scaling  used  for  the  physical  load  variable: 


CML 


CML 

9(THW) 


End-of-Day  Sleep 

At  the  completion  of  the  processing  of  all  events  for  the  day  and  various  end- 
of-day  calculations,  the  model  determines  the  end-of-day  sleep  requirement  and  the 
corresponding  fatigue  level  for  each  man.  Prior  to  sirpulating  each  event,  the  mod¬ 
el  checks  to  determine  if  conditions  permit  the  selected  crew  members  to  sleep  be¬ 
tween  the  current  and  their  prior  work  event  (these  conditions  are  time  available, 
catnap  time  threshold,  and  fatigue  level  threshold).  Thus,  the  program  provides 
for  operators  taking  their  sleep  periods  during  the  24  hour  days,  as  conditions  per¬ 
mit. 


Since  conditions  may  permit  additional  sleep  at  the  conclusion  of  all  work  for 
the  day,  the  processing  logic  provides  for  determining  the  end-of-day  sleep  status 
for  all  crew  members.  This  process  determines  how  much  sleep  each  man  should 
have  between  the  last  time  worked,  Z(M),  and  the  day's  end,  24.  0  hours.  If  the 
time  available  for  sleep,  24-Z(M),  exceeds  the  parameter  CN  +  0.  5,  and  if  the 
crew  member  has  not  had  his  full  quota  of  sleep  for  the  day,  MAXSL,  then  a  sleep 
period  is  simulated  by  calculating  sleep  duration  (limited  to  MAXSL).  As  the  re¬ 
sult  of  this  sleep,  new  values  are  generated  for  time  fatigue  (reduced  due  to  sleep 
relief),  hours  since  last  sleep,  HSLS(M),  and  a  physical  capability,  PCC(M),  all  ef¬ 
fective  at  the  start  of  the  next  day. 


End-of-Day  Recording 

The  basic  computations  completed,  processing  now  turns  to  reporting  of  re¬ 
sults.  If  print  Option  6  has  been  taken,  the  summarized  results  of  the  day  just  sim¬ 
ulated  are  recorded  for  printout  on  the  computer's  high  speed  line  printer.  Fig¬ 
ure  2-12  shows  a  sample  tabulation.  The  first  section  provides  summarized  event 
and  status  information  for  the  overall  crew  performance.  Most  of  the  headings 
shown  are  self  explanatory.  All  times  are  given  in  hours.  The  AVG  PERF  ADEQ 
(average  performance  adequacy,  third  line)  is  a  mean  of  the  performance  adequacy 
value  of  all  events  performed.  The  AVG  FAIL  DIFF  (average  failure  difference)  is 
a  mean,  taken  only  for  failed  events,  indicating  the  difference  between  performance 
adequacy,  (PA),  and  the  required  performance  level,  CASP(L1)‘K7.  The  second 
section  shows  important  data  summarized  by  man.  These  results  are  either  totals 
for  all  daily  activity  (hours  worked,  slept,  idle,  number  of  events  successfully  per¬ 
formed),  or  represent  end-of-day  conditions  (fatigue,  aspiration,  competence). 
Averages  for  all  of  the  elements  in  the  second  section  follow  the  individual  crew 
member  summaries  and  represent  daily  summaries  for  simulated  variables  for  the 
day. 
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Figure  2-12.  Sample  end‘^of~day  recording. 


Summarized  are:  the  total  number  of  events  scheduled,  events  worked,  re¬ 
pair  events,  emergency  events,  repeated  events,  successes,  failures,  and  ignores, 
total  hours  worked,  time  spent  on  scheduled  and  repair  and  emergency  events,  un¬ 
manned  station  hours,  average  performance  adequacy,  average  failure  difference 
percentage  of  tasks  failed  and  succeeded  on  first  try,  percentage  of  tasks  succeeded 
on  second  try,  and  percentage  of  tasks  ignored  and  repeated.  Also,  presented  are: 
the  safety  index,  competence  increase,  confidence,  hazard,  consumable  balances, 
maximum  stress  and  on  which  event,  maximum  mental  load  and  on  which  event, 
maximum  calories  expended  and  on  which  event.  A  summary  table  is  presented 
including  for  each  man  his  physical  capacity,  hours  worked  in  primary  specialty, 
hours  worked  in  secondary  specialty,  hours  slept,  hours  idle,  fatigue  level,  health 
index,  average  physical  workload,  competence,  aspiration,  performance  (cumula¬ 
tive)  and  number  of  successes.  Each  of  these  variables  is  also  averaged  across  the 
entire  crew.  A  summary  table  of  these  variables  is  also  presented  by  type  of  man. 

Eleven  reliability  related  variables  are  also  summarized  in  the  end-of-day 
printout.  These  are:  average  equipment  performance  level  (AEPL),  equipment  per¬ 
formance  effectiveness  (EPEFF),  equipment  mean  time  between  failures  (EMTBF), 
equipment  mean  time  to  repair  (EMTTR).  system  reliability  level  (SRL),  system 
performance  level  (S PS),  system  general  effectiveness  (SGEM),  and,  for  each 
equipment,  equipment  performance  level  (EPL),  current  average  repairtime  (CART), 
current  down  time  (CDT),  and  current  up  time  (CUT). 

These  same  items  are  given  in  the  third  section  of  the  end  of  day  recording 
as  a  mean  by  type  of  man,  where  type  is  generally  synonomous  with  work  specialty. 


End-of-Iteration  Summary  Calculations  and  Recordings 

If  the  day  just  simulated  was  not  the  last  day  of  the  mission,  then  the  day 
number,  ND,  is  increased  by  one,  and  the  entire  process  is  repeated  for  the  next 
and  subsequent  mission  day's  events  by  returning  to  circle  c  of  the  model  flow  chart. 

After  the  last  day  has  been  simulated,  several  end-of -iteration  summary  cal¬ 
culations  are  made  and  the  end-of-mission  iteration  record  is  made  for  later  print¬ 
ing. 

However,  just  prior  to  the  recording,  seven  mission  iteration  human  and 
equipment  reliability  summary  measures  are  calculated  as  shown  by  their  variable 
name  below: 
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Reliability 

Availability 

MTBF 

MTTR 

human 

EQUIPMENT 

SYSTEM 

HMTBF 

EMTBF 

HMTTR 

EMTTR 

HAVAIL 

EAVAIL 

SYSAVAIL 

These  data  are  calculated  from  other  available  iteration  summary  values  as 
shown  in  the  flow  chart  at  circle  K,  based  upon  the  basic  definitions  of  MTBF  and 

MTTR  and  AVAIL  =  tutBF +  "MTTR  ' 


The  resultant  recording  of  iteration  output  is  then  made.  This  recording 
contains  such  summary  items  as;  number  of  events  successful  on  first  and  second 
try,  number  of  events  failed  and  ignored,  average  man  hours  spent  in  primary  spe¬ 
cialty,  in  secondary  specialty,  hours  spent  sleeping  and  hours  idle,  consumables 
remaining,  averages  of  physical  load,  mental  load,  competence,  average  perform¬ 
ance  adequacy,  average  fatigue,  average  aspiration,  average  health,  and  average 
safety.  Each  of  these  variables  is  also  summarized  as  percentage  of  total,  aver¬ 
age  per  day,  or  percentage  of  original,  whichever  is  appropriate.  Summary  by  day 
(including  an  average  across  days)  includes;  number  of  repair  or  emergency  events, 
average  man  hours  spent  doing  repairs  or  handling  emergencies,  maximum  stress, 
maximum  mental  load,  confidence,  hazard,  average  failure  difference,  number  of 
successes  and  unmanned  hours.  A  summary  table  by  day  and  man  type  is  provided 
for  the  following  variables;  physical  capability,  hours  spent  on  primary  and  second¬ 
ary  specialties,  sleep  time,  idle  time,  fatigue,  health  index,  average  physical  work 
load,  competence,  aspiration,  cumulative  performance,  and  number  of  successes. 
Averages  for  these  variables  across  types  by  day  are  also  provided  (Figure  2-13). 

Reliability  metrics  provided  at  the  end  of  each  iteration  are  human  mean 
time  between  failure  (HMTBF),  equipment  mean  time  between  failure  (EMTBF),  hu¬ 
man  mean  time  to  repair  (HMTTR),  equipment  mean  time  to  repair  (EMTTR),  human 
availability  (HAVAIL),  and  equipment  availability  (EAVAILL.  A  composite  reliabil¬ 
ity  metric  of  system  availability  (SYSAVAIL)  is  also  provided. 

Following  each  such  mission  iteration  of  ND  days,  a  check  is  made  to  deter¬ 
mine  whether  all  N  mission  iterations  have  been  completed.  If  not,  the  entire  proc¬ 
ess,  as  described,  begins  again  for  the  next  iteration  at  circle  a  of  the  flow  chart. 

If  N  mission  iterations  have  been  accomplished,  then  the  results  of  all  of  the 
N  iterations  are  summarized,  a  new  set  of  parameters  is  called  into  the  computer 
and  is  recorded.  The  run  summary  tabulation  output  provides  the  summary  of  each 
and  all  iterations  of  the  run  in  a  tabular  form  whichis  similar  to  the  iteration  summary. 

This  entire  process,  then,  results  in  the  simulation  of  N  iterations  of  a  mis¬ 
sion  for  each  of  several  parameter  sets  and  continues  until  the  computer  has  proc¬ 
essed  all  parameter  sets  provided  as  input. 


Figure  2-13.  Sample  end-of-iteration  recording 


INITIAL  MODEL  APPLICATION- -SENSITIVITY  TESTS 


The  model  described  in  Chapter  II  was  applied  to  a  hypothetical  mission. 

The  mission  was  developed  specifically  for  assessing  the  logic  of  the  model^s  out¬ 
put  and  for  obtaining  an  initial  estimate  of  its  internal  validity.  The  mission  was 
general  in  scope  and  involved  typical  work  events  as  found  in  many  Navy  shore 
and  sea  based  systems.  However,  the  mission  was  not  intended  to  reflect  accurate¬ 
ly  any  specific  mission.  Rather,  it  was  developed  to  provide  a  basis  for  experi¬ 
encing  and  evaluating  the  modePs  internal  structure  and  its  output.  Such  a  hypo¬ 
thetical  mission  possesses  advantage  because  certain  model  features  may  be  inade¬ 
quately  tested  in  a  usual  mission.  For  example,  emergencies  or  repairs  would  oc¬ 
cur  so  infrequently  that  test  of  features  related  to  these  variables  would  be  insensi¬ 
tive  or  require  an  inordinately  large  number  of  iterations  per  run. 

This  chapter  discusses  the  mission  developed,  the  related  input  data,  and 
the  results  obtained  from  the  sensitivity  test  analysis. 


Mission  Events 

The  mission  developed  for  model  sensitivity  test  involved  2  7  events.  These 
were  subdivided  into  10  scheduled  events,  14  repair  events,  and  3  emergency 
events.  All  2  7  events  could  occur  on  any  given  day  with  stochastic  processes  de¬ 
termining  both  the  actual  events  which  occurred,  as  well  as  their  sequence  of  oc¬ 
currence. 


Scheduled  Events 

The  10  scheduled  events  were  subdivided  into  two  scheduled  event  families 
with  four  and  two  events,  respectively,  and  four  single  events.  Figure  3-1  shows 
a  sample  portion  of  the  computer  tabulation  of  the  scheduled  event  input  data.  The 
following  explanation  of  scheduled  event  3  (Figure  3-1)  illustrates  the  meaning  of 
the  data  relative  to  this  event.  Scheduled  event  3  employs  event  type  number  11 
(lETYP  =  11),  uses  the  third  set  of  thresholds  for  units  per  hour  consumable  con¬ 
sumption  (TSR  =3),  uses  the  second  set  of  thresholds  for  units  consumable  con¬ 
sumption  (TSRI  =2),  and  is  neither  the  first  nor  the  last  event  (IFOI  =  0)  in  family 
two  (lEFW  =2),  which  consists  of  four  events  (NIF  =  4).  Also,  scheduled  event  3 
is  followed  by  scheduled  event  4  [NX(1)  =  4  and  PRB(l)  =  1.  00].  Before  scheduled 
event  3  can  be  started,  precedent  event  1  (IPE  =  1)  must  be  completed.  Scheduled 
event  3  can  be  touched  up  (RTU  =  2)and  must  be  completed  by  time  limit  0730  hours 
(TL  =  7.  30).  It  must  start  by  0345  hours  (ST  =  3.  75). 
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Figure  3-1.  Sample  sensitivity  test  input  data  for  scheduled  events. 


The  14  repair  events  were  subdivided  into  two  repair  families  with  eight 
and  five  events,  respectively,  and  one  single  repair  event.  The  eight  repair 
event  family  was  designated  as  repairing  electronic  equipment.  The  five  repair 
event  family  was  designated  as  repairing  electromechanical  equipment,  while  the 
single  repair  event  involved  a  mechanical  repair.  Figure  3-2  shows  a  sample  of 
the  computer  tabulation  of  the  repair  event  input  data.  The  following  explanation 
of  the  third  event  in  the  electronic  repair  family  describes  the  meaning  of  the  in¬ 
put  data  for  repair  events.  This  repair  event  employs  event  type  number  (TYPE=  3) 
with  event  2  as  the  next  event  to  be  performed  [NX(1)  =  202;  202-200  =  2  with  200 
subtracted  as  repair  events  begin  at  that  location  in  memory]  with  a  probability 
equal  to  1.  0  [PRB(l)  =  1.  0] .  If  performed  unsuccessfully,  the  event  is  not  re¬ 
peated  or  touched  up  (RTU  =0).  There  is  no  required  precedent  event  (IPE  =0). 
Repair  event  3  is  not  the  first  or  the  last  event  (IFOI  =  0)in  family  1  (lEFN  =1), 
which  is  composed  of  a  total  of  eight  repair  events  (IRE  =  8)  Like  all  other  events 
in  this  family  which  is  employed  in  corrective  maintenance  of  electronic  equipment 
number  1  (IQ  =  1),  no  data  change  options  are  in  effect  [IEDC(l-3)  ^  0;  lEDC  .  (1-3) 

=  0).  Equipment  1  has:  a  reliability  of  0.  1  (RELH  =  0.  1),  an  intermittent  failure 
rate  of  1.  00  (TUI  ^  1.  0)  per  hour,  and  a  maximum  repair  time  of  5.  00  hours  (DTR 
=  5.  00). 


Emergency  Events 

No  families  are  involved  in  the  simulation  of  the  emergencies.  Three  types 
of  emergencies  were  included  in  the  sensitivity  test  data.  Figure  3-3  presents  the 
computer  tabulation  of  the  emergency  event  input.  The  data  for  emergency  event  2 
(K  =  2)  will  serve  as  an  example.  The  average  event  time  is  expected  to  be  .  70 
hours  (ART=  .  70),  with  a  standard  deviation  of  .  10  (ASDE  =  0.  10),  and  a  maximum 
of  1.  20  hours  (DTE  =  1.  20).  The  rate  of  consumable  expenditures  (units  per  hour) 
is  shown  to  be  10  for  consumables  one  through  four  [IRCE(l-4)  =10]  and  zero  for 
consumables  six  through  ten  [IRCE(6-10)  =  0] .  The  threshold  set  used  for  these 
consumables  is  1  (TSE  =1).  The  rate  of  consumable  expenditure  (units)  is  shown 
to  be  five  for  consumables  one  through  five  [IRCEl(l-5)  =  5]  and  10  for  consum¬ 
ables  six  through  10  [IRCE1(6-10)  =  10].  The  threshold  set  used  for  these  consum¬ 
ables  is  also  1(TSE1  =1),  The  mental  load  involved  in  this  task  is  2(LODME  =2), 
the  essentiality  is  75(IESSE  =  75),  and  the  hazard  class  is  2(IHE  =2),  Seven  men 
are  necessary  for  this  emergency  with  types  (NREQE)--and  expected  energy  con¬ 
sumption  by  type  (lECE)  in  parenthesis- -one  [lECE(l)  =  180),  two  [1ECE(2)  =  180), 
four  [IECE(4)  =  638],  eight  [IECE(8)  =  720],  nine  [IECE(9)  =  720],  and  ten  [lECE(lO) 
=  720]  required.  Two  type  10  men  are  required  [NREQE(IO)  =  2], 


tOulHMfcNT  K&PAIR  FVENT  DATA 

IQ  DESCRIPTION  TSR,'  TSRj.  RELH  TUI  DTR 

NX(i«3)  _  PRB(l«3i  RTU  IEnc<l-s5>  IEUCV(3.53)  IPE  JPOl  IRE  lEFN 
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Figure  3-3,  Sensitivity  test  input  data  for  emergency  events. 


Scheduled  and  repair  events  are  all  associated  with  event  type  data.  This 
feature  allows  flexibility  to  the  analyst  in  coupling  events  with  different  critical  pa¬ 
rameter  values.  Figure  3-4  presents  a  sample  portion  of  the  computer  tabulation 
of  the  event  type  data.  Event  type  11  (J  =  11),  which  is  associated  with  scheduled 
event  3  (explained  earlier),  will  serve  to  illustrate  the  meaning  of  the  event  type 
data  input  entries.  This  decision  event  type  has  an  essentiality  of  99  (lESS  =  99),  a 
mental  load  of  2  (LODM  =2),  and  a  fixed  end  time  (KE  =1).  It  is  not  a  training 
event  (INT  =1),  has  a  hazard  class  of  1  (IH  =1),  and  requires  five  men  with  types 
(NREQE)--and  expected  energy  consumption  by  type  (lECE)  in  parenthesis- -two 
[IECE(2)=  216],  five  [IECE(5)  -  216],  seven  [IECE(7)  =  216],  nine  [IECE(9)  -  250], 
and  ten  [lECE(lO)  =  250].  This  event  type  has  an  expected  average  duration  of  five 
hours  (ADUR  =  5)  and  an  average  duration  standard  deviation  of  0.  1  hours  (ASD  =  .l). 
The  class  of  the  event  is  3  (CLASS  =3),  and  one  equipment  (NIQR  =  1)  is  required 
--equipment  number  one  [IQR(l)  =  1] .  The  expected  consumable  usage  in  units  per 
hour  is  one  [IRC(l-lO)  =  1]  and  in  units  it  is  also  one  [IRCl(l-lO)  =  1] . 


Parameters 

Computer  input  data  were  selected  so  as  to  allow  initial  exercise  of  the  ma¬ 
jor  model  features. 

Following  data  preparation,  a  variety  of  computer  simulation  runs  was  com¬ 
pleted  employing  a  range  of  parameter  values  in  order  to  allow  evaluation  of  the 
sensitivity  of  the  model  to  variations  in  parametric  input  and  how  they  affect  vari¬ 
ous  reliability  metrics. 

Table  3-1  shows  the  nominal  values,  or  conditions,  for  each  computer  run 
performed. 

Table  3-2  presents  the  matrix  which  was  used  in  the  assignment  of  person¬ 
nel  crosstraining  probabilities.  This  matrix  presents  the  probability  of  a  person¬ 
nel  type  with  a  given  primary  specialty  being  crosstrained  in  a  given  secondary  spe¬ 
cialty.  These  values  were  obtained  through  interviews  with  persons  who  were  patrol 
boat  members  and  were  used  in  the  Siegel  et  al.  (1972) study. 

The  parameter  values  varied  for  the  seven  sensitivity  test  runs  are  shown 
in  Table  3-3.  Each  set  of  values  in  a  computer  rim  was  designated  a  "parameter 
set"  and  numbered  one  to  seven,  as  shown  in  Table  3-3.  These  parameter  values 
allow  the  comparison  of  such  effects  as  varying  workday  length,  crew  proficiency, 
and  sea  state  on  output  measures  such  as  the  number  of  repairs  successfully  com¬ 
pleted. 


Table  3-1 


’’Standard"  Parameter  Set  Run  Conditions 


PcULormteA 

Average  psychological  stress  threshold 

Workday,  assignment  limit 

Workday,  maximum 

Hours  since  last  sleep  at  start 

Catnap  threshold 

Maximum  sleep  permitted  per  day 

Fatigue  threshold 

Average  crew  pace 

Average  daily  calories  per  crew  member 
Average  short  term  power  rate  (cals/hr) 
Acceptable  performance  constant 
Work  factor  constant 
Consumable  levels:  (units/hr) 


Consumable  levels:  (units) 


Initial  aspiration  level 
Number  of  iterations 
Essentiality  threshold 
Sea  state 


PeA^onneZ  VcUa 

Mean  body  weight  of  total  population 
Standard  deviation  of  population  body  weight 
%  crew  fully  qualified  in  prime  specialty 
%  crew  minimally  qualified  in  prime  specialty 
%  crew  unqualified  in  prime  specialty 
%  crew  fully  qualified  in  second  specialty 
%  crew  minimally  qualified  in  second  specialty 
%  crew  unqualified  in  second  specialty 
Avg.  N  man  days  between  physical  incapacitations 
Avg.  duration  of  incapacity  (days) 

Physical  capability  constant,  a  value  yielding  zero 
physical  capability  due  to  over  exertion  • 

Number  of  men  by  type 


FORTRAN 

Uaiue 

APST 

2.30 

WORKl 

varied 

WORK  2 

22.00 

SLEEP 

1.00 

CN 

1.00 

MAXSL 

8.00 

TFAT 

0.25 

AGP 

varied 

CALRY 

2700.00 

PWRRT 

440.00 

K7 

1.00 

K1 

0.95 

KON(l) 

15150.00 

K0N(2) 

10000.00 

K0N(3) 

6000.00 

K0N(4) 

500.00 

K0N(5) 

500.00 

K0N(6) 

500.00 

K0N(7) 

500.00 

K0N(8) 

500.00 

K0N(9) 

500.00 

KON(IO) 

500.00 

KONl(l) 

100.00 

K0N1(2) 

100.00 

K0N1(3) 

100.00 

K0N1(4) 

100.00 

K0N1(5) 

100.00 

K0N1(6) 

100.00 

K0N1(7) 

100.00 

K0N1(8) 

100.00 

K0N1(9) 

100.00 

KONl(lO) 

100.00 

AASP 

0.85 

N 

5.00 

lET 

0.30 

SESTA 

varied 

WT 

160.50 

SIGWT 

20.00 

PPFQ 

varied 

PPMQ 

varied 

PPUQ 

varied 

SPFQ 

varied 

SPMQ 

varied 

SPUQ 

varied 

MPI 

5.00 

PID 

5.00 

ZPC 

2.00 

MEN(ICE,NI) 

varied 
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Table  3-2 


Crosstraining  Probability  Matrix 


Sdcondojiy 

Spzdialty 

1 

2 

3 

4 

?HMnz  SpzcMitty 

5  6  7 

8 

9 

10 

1 

0.99 

0.65 

0.71 

0.25 

0.09 

0.18 

0.18 

0.13 

0.11 

0.05 

2 

0.78 

1.00 

0.65 

0.63 

0.31 

0.45 

0.38 

0.23 

0.26 

0.59 

3 

0.79 

0.46 

1.00 

0.11 

0.13 

0.12 

0.43 

0.16 

0.35 

0.06 

4 

0.56 

0.72 

0.24 

1.00 

0.71 

0.35 

0.21 

0.16 

0.19 

0.42 

5 

0.38 

0.27 

0.12 

0.62 

0.94 

0.14 

0.26 

0.32 

0.12 

0.13 

6 

0.36 

0.22 

0.42 

0.06 

0.21 

1.00 

0.52 

0.54 

0.25 

0.06 

7 

0.81 

0.39 

0.72 

0.14 

0.42 

0.72 

1.00 

0.86 

0.48 

0.14 

8 

0.21 

0.06 

0.12 

0.10 

0.47 

0.37 

0.55 

1.00 

0.08 

0.03 

9 

0.26 

0.16 

0.85 

0.04 

0.04 

0.60 

0.23 

0.18 

0.96 

0.06 

10 

0.83 

1.00 

0.82 

0.97 

0.87 

0.71 

0.82 

0.73 

0.74 

1.00 
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Sensitivity  Test  Runs 
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Table  3-4  shows  the  personnel  assignment  matrices  for  crew  echelon  by  per¬ 
sonnel  type  for  the  two  crew  sizes  (9  men  and  14  men)  simulated.  The  decrease 
in  crewsize  from  14  to  9  results  in  the  loss  of  one  type  one  man  from  crew  echelon 
one,  one  type  two  man  from  crew  echelon  two,  one  type  five  man  from  crew  echelon 
three,  and  two  type  ten  men  from  crew  echelon  four. 


Table  3-4 

Personnel  Assignment  Matrices  for  Crew  Sizes  of  9  and  14 

Crew  Size  of  9 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 

2 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Crew 

2 

0 

0 

1 

1 

0 

0 

0 

0 

0 

0 

Echelon 

3 

0 

0 

0 

0 

0 

1 

1 

1 

0 

0 

4 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

Crew  Size  of  14 

Personnel  Type 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 

3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Crew 

2 

0 

1 

1 

1 

0 

0 

0 

0 

0 

0 

Echelon 

3 

0 

0 

0 

0 

1 

1 

1 

1 

0 

0 

4 

0 

0 

0 

0 

0 

0 

0 

0 

1 

3 

Note 

that  a 

variety  of  diffe. 

rences 

were 

selected 

in  an 

attempt 

fects  on  the  model's  output  for  sensitivity  evaluation.  These  changes  in  output, 
when  viewed  in  the  light  of  input  change,  may  be  used  to  determine  the  realism 
(agreement  with  logical  expectancy)  of  model's  output  responses  both  in  direction 
and  magnitude.  To  allow  appraisal  of  the  model's  sensitivity,  the  results  achieved 
will  be  presented  in  groups  of  parameter  set  runs  which  concentrate  on  a  selected 
facet  of  the  model's  response.  For  example,  parameter  sets  1  and  2  allow  a  de¬ 
termination  of  the  effect  of  crew  size.  The  only  change  in  parameter  values  between 
the  two  computer  runs  is  crew  size.  Similarly,  a  comparison  between  parameter 
sets  3  and  7  allows  quantification  of  the  effects  of  variation  in  average  crew  pace. 
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Results 


Cr  ew  Si  ze 


The  results  from  parameter  set  1  versus  2  and  4  versus  6  represent  the 
effects  of  variations  in  crew  size  on  the  completion  of  the  events  in  the  simulated 
day's  work.  Parameter  sets  2  and  6  include  crew  sizes  of  9  men,  while  parameter 
sets  1  and  4  are  simulations  of  crews  with  14  men.  Parameter  sets  1  and  2  both 
involve;  long  workdays,  low  proficiency  crews,  average  crew  pace,  and  rough  seas. 
Parameter  sets  4  and  6  both  include:  short  workdays,  high  proficiency  crews,  aver 
age  crew  pace,  and  calm  seas. 

Figures  3-5,  3-6,  3-7,  and  3-8  present  the  effects  of  crew  size  variation 
on  selected  simulation  output.  The  first  of  these  figures  indicates  for  both  com¬ 
parisons  an  increasing  percentage  of  tasks  successfully  completed  with  increasing 
crew  size.  The  percentage  of  tasks  failed  decreased  from  71.  2  to  65.  9  with  in¬ 
creasing  crew  size  for  parameter  sets  1  and  2,  while  the  percentage  of  tasks  failed 
for  parameter  sets  4  and  6  remained  relatively  constant.  The  effects  of  crew  size 
variation  on  task  performance  accordingly  seems  to  have  had  its  greatest  impact 
on  the  percentage  of  tasks  successfully  completed.  Task  success  percentage  in¬ 
creased  approximately  10  per  cent  for  parameter  sets  1  and  2  (less  than  optimal 
conditions)  and  approximately  15  per  cent  for  parameter  sets  4  and  6  (with  more 
optimal  conditions).  Increases  in  the  number  of  events  failed  with  smaller  crews 
seems  to  be  coupled  with  less  than  optimal  conditions.  Large  simulated  crews  were 
more  able  to  handle  the  increased  workload.  This  result  seems  to  be  in  accordance 
with  logical  expectancy. 

Figure  3-6  indicates,  as  would  be  expected,  that  more  idle  hours  and  less 
work  by  crew  members  in  their  primary  proficiency  accompanies  larger  crew  sizes. 
Idle  time  was  about  20  per  cent  greater  for  parameter  set  1  as  compared  with  pa¬ 
rameter  set  2  and  about  10  per  cent  greater  for  parameter  set  4  as  compared  with 
parameter  set  6.  The  decrease  in  time  worked  in  primary  specialty  is  reflective 
of  the  general  decrease  in  work  time  per  crew  man  with  increasing  crew  size.  This 
trend  of  these  results  is  also  considered  to  be  realistic. 

Figure  3-7  presents  the  effect  of  crew  size  on  average  physical  workload. 

As  expected,  increasing  the  size  of  the  crew  results  in  a  simulation  output  which 
indicated  less  physical  workload  per  crew  member.  The  difference  in  workload  be¬ 
tween  parameter  sets  1  and  2  (less  than  optimal  conditions)  and  parameter  sets  4 
and  6  (more  optimal  conditions)  reflects  the  greater  number  of  events  attempted 
(not  ignored)  and  successfully  performed  (see  Figure  3-5)  by  the  simulated  crew 
under  the  more  optimal  conditions. 
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PARAMETER  SETS  1  &2 


1.  LONG  WORKDAY 

2.  LOW  PROFICIENCY 

3.  AVERAGE  CREW  PACE 

4.  VERY  ROUGH  SEAS 


PARAMETER  SETS  4&  6 

1.  SHORT  WORKDAY 

2.  HIGH  PROFICIENCY 

3.  AVERAGE  CREW  PACE 

4.  CALM  SEAS 


%  FAILURE  PARAMETER  SETS  I  8  2 


%  FAILURE  PARAMETER  SETS  4  8  6 
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FIGURE  3-5.  EVENT  SUCCESS  AND  FAILURE  PERCENTAGE  AS  A  FUNCTION 

OF  CREW  SIZE, 
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FIGURE  3-6.  HOURS  (AVERAGE)  WORKED  IN  PRIMARY  SPECIALTY  AND  HOURS 
IDLE  AS  A  FUNCTION  OF  CREW  SIZE- 


The  effect  on  average  hours  slept  of  variations  in  crew  size  is  shown  in 
Figure  3-8.  With  increasing  crew  size,  the  average  number  of  hours  slept  can 
be  observed  to  increase  for  parameter  sets  1  and  2,  as  well  as  parameter  sets  4 
and  6.  The  effect  is  marginal  for  parameter  sets  4  and  6.  For  parameter  sets  1 
and  2,  approximately  a  20  per  cent  increase  in  sleep  time  was  shown  with  the  in¬ 
creased  crew  size.  The  increased  sleep  time  available  under  the  more  adverse 
conditions  (parameter  sets  1  and  2)  is  a  function  of  more  events  being  ignored. 

The  crew  size  data  suggest  that  the  crew  size  variable  is  adequately  and 
logically  reflected  on  a  number  of  the  model's  output  variables.  This  variable 
seems  to  have  the  desired  effects  on  event  success,  failure,  hours  worked,  idle 
time,  hours  slept,  and  physical  workload  levels. 


Sea  State 

The  effect  of  the  sea  state  parameter  on  the  model's  output  was  explored  by 
comparing  the  simulation  results  from;  (1)  parameter  sets  2  and  3,  and  (2)  parame¬ 
ter  sets  5  and  6.  Parameter  sets  2  and  3  are  characterized  by:  long  workdays,  low 
proficiency  crews,  average  crew  pace,  and  small  crews.  Parameter  sets  5  and  6 
are  characterized  by:  short  workdays,  high  proficiency  crews,  average  crew  pace, 
and  small  crews.  Parameter  sets  2  and  5  have  sea  state  values  equal  to  9  (rough 
seas)  while  parameter  sets  3  and  6  have  sea  state  values  equal  to  0  (calm  and  glassy) 
seas. 


The  effects  of  variation  in  the  sea  state  parameter  are  shown  in  Figures  3-9, 
3-10,  and  3-11.  Figure  3-9  shows  the  effect  of  sea  state  variation  on  the  average 
failure  difference.  As  anticipated,  both  parameter  sets  indicated  a  larger  margin 
between  actual  and  acceptable  performance  (the  failure  difference)  for  the  rough  sea 
state  condition.  The  larger  failure  differences  observed  for  parameter  set  2  as 
compared  with  parameter  set  3  suggest  that,  according  to  the  model,  a  lower  pro¬ 
ficiency  crew  working  a  longer  worker  day  will  suffer  a  significant  performance 
degradation  in  rough  seas  and  that  this  degradation  is  higher  than  for  the  short  work¬ 
day,  high  proficiency  crews. 

Figure  3-10  presents  the  effects  on  the  percentage  of  events  successfully 
completed  or  failed  as  a  function  of  difference  in  sea  state.  Percentage  of  failure 
appears  to  increase  significantly  with  adverse  weather  conditions.  The  effects  on 
percentage  of  success  appear  to  have  been  greatest  in  the  comparison  of  parameter 
set  2  with  parameter  set  3.  Here,  a  14  per  cent  decrease  was  indicated.  The 
slight  increase  in  percentage  of  successful  events  observed  for  parameter  set  5  as 
compared  with  parameter  set  6  (adverse  weather  conditions) (4  per  cent)  is  con¬ 
sistent  with  the  prior  indication  of  the  model  that  higher  proficiency  crews  working 
shorter  workdays  are  less  affected  by  the  sea  state. 
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FIGURE  3-9.  AVERAGE  FAILURE  DIFFERENCE  AS  A  FUNCTION  OF 

SEA  STATE. 
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FIGURE  3-10.  EVENT  SUCCESS  AND  FAILURE  AS  A  FUNCTION  OF 

SEA  STATE. 


Figure  3-11  presents  the  effects  of  varying  sea  state  on  average  perform¬ 
ance  adequacy  (A PA).  Both  parameter  sets  are  in  agreement.  Each  indicates  a 
decrease  in  A  PA  with  increasing  weather  turbulence.  Also,  as  predicted,  the  bet¬ 
ter  crew  (higher  proficiency)  of  parameter  sets  5  and  6  demonstrated  higher  A  PA. 
In  summary,  it  appears  from  the  average  failure  difference,  percentage  success/ 
failure,  and  average  performance  acequacy  data  that  the  model  yields  results  which 
are  directionally  sensitive  in  the  anticipated  direction  when  the  new  sea  state  vari¬ 
able  is  implemented- -at  least  over  the  ranges  tested. 


Workday  Length  and  Proficiency 

One  of  the  many  uses  of  the  model  can  be  phrased  symbolically  as: 

A  n  B  C  n  D 

That  is,  the  occurrence  of  conditions  A  and  B  is  approximately  equivalent  (in  terms 
of  some  criterion  such  as  number  of  successful  event)  to  conditions  C  and  D.  An 
analyst  might,  for  example,  be  interested  in  whether  a  crew  of  lesser  proficiency 
which  is  given  more  time  to  work  would  perform  as  well  as  a  crew  of  greater  pro¬ 
ficiency  given  less  time.  This  type  of  analysis  is  illustrated  in  the  sensitivity  tests 
reported  here.  In  this  aspect  of  the  sensitivity  tests,  proficiency  and  workday 
length  were  varied  concurrently.  Table  3-5  presents  the  workday  length- profici¬ 
ency  parameter  combinations  investigated. 

Parameter  sets  2  and  3  include  a  long  worday  with  a  crew  of  low  profici¬ 
ency,  while  parameter  sets  5  and  6  include  a  short  workday  with  high  proficiency. 
Comparisons  between  the  results  from  parameter  sets  2  and  5  and  between  parame¬ 
ter  sets  3  and  6,  accordingly  provide  the  desired  data. 


Table  3-5 


Workday  Length  and  Proficiency  Parameter  Values 
for  Parameter  Sets  2,  3,  5,  and  6 _ 


Parameter  Set 


Parameters 

2  and  3 

5  and  6 

Work(day  length  (hours) 

18 

12 

Primary  proficiency 

Per  cent  fully  qualified 

0 

90 

Per  cent  minimally  qualified 

10 

10 

Per  cent  unqualified 

90 

0 

Secondary  proficiency 

Per  cent  fully  qualified 

0 

90 

Per  cent  minimally  qualified 

10 

10  ' 

Per  cent  unqualified 

90 

0 

Sea  State 

2 

3 

5 

6 

9 

0 

9 

0 

Crew  size 

9 

9 

9 

9 

Figures  3-12,  3-13,  and  3-14  present  the  simulation  output  resulting  from 
the  workday  length- proficiency  variation.  The  first  of  these  figures  indicates  an 
increase  in  the  average  physical  workload  with  the  shorter  workday-higher  profici¬ 
ency.  For  parameter  set  2  in  comparison  with  parameter  set  5,  as  well  as  for 
parameter  set  3  in  comparison  with  parameter  set  6,  the  increase  amounted  to  bet¬ 
ter  than  25  per  cent.  It  is  possible  that  the  faster  crew  has  to  work  harder  during 
the  shorter  time  period  allotted  to  them  to  complete  the  day's  work  and  that  their 
greater  proficiency  does  not  offset  the  necessary  increase  in  physical  labor.  Par¬ 
ameter  sets  3  and  6  indicated  a  much  greater  degree  of  physical  load  than  the  par¬ 
ameter  sets  2  and  5.  This  result  probably,  as  has  been  noted  earlier,  reflects  the 
greater  number  of  events  ignored  imder  adverse  weather  conditions. 

Figure  3-13  presents  the  effects  on  event  success  and  failure  percentages  as 
the  result  of  the  workday  length-proficiency  variation.  The  percentage  of  event  suc¬ 
cess  increased  dramatically  for  the  higher  proficiency  crews.  Analogously,  per¬ 
centage  of  event  failure  decreased  with  the  increase  in  proficiency.  While  the  short¬ 
er  workday  would  probably  have  an  effect,  in  and  of  itself,  prior  results  with  an 
earlier  version  of  this  model  (Siegel,  Wolf,  &  Cosentino,  1971)  suggest  that  the 
large  variations  observed  in  event  success  and  failure  is  primarily  a  function  of 
the  variation  in  proficiency. 
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FIGURE  3-12.  AVERAGE  PHYSICAL  LOAD  AS  A  FUNCTION  OF  WORKDAY 
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Figure  3-14  presents  the  effect  of  varying  the  workday  length  and  proficiency 
on  average  end-of-mission  fatigue.  No  effect  is  indicated  for  the  comparison  of 
parameter  sets  2  and  5.  For  parameter  set  3,  compared  with  parameter  set  6,  a 
drop  of  approximately  .  07  in  fatigue  was  indicated  in  the  higher  proficiency-shorter 
workday  combination.  Coupled  with  the  results  presented  in  Figure  3-12,  this  sug¬ 
gests  that  while  the  average  physical  load  may  increase  because  of  the  shorter  work¬ 
day,  the  fatigue  level  at  the  end  of  the  day  has  actually  been  depressed.  The  higher 
average  fatigue  for  parameter  sets  3  and  6  is,  once  again,  probably  reflective  of  the 
large  number  of  events  ignored  during  adverse  weather  conditions. 

Integration  of  results  from  the  three  analyses  involving  comparisons  between 
workday  length  and  crew  proficiency  combinations  suggests  support  for  contentions 
favoring  the  trend  sensitivity  of  model  parameters  to  variations  in  these  variables. 
However,  further  calibration  analysis  of  the  fatigue  variable  may  also  be  indicated. 
The  data  relative  to  fatigue,  event  success  and  failure,  and  physical  workload,  for 
the  most  part,  tend  to  be  logical  and  consistent  with  the  observed  trends  being  in 
the  predicted  directions.  These  results  also  serve  to  demonstrate  the  utility  of  the 
model  for  assessing  the  effects  of  tradeoffs  (e.  g.  ,  low  proficiency  and  a  long  work¬ 
day  versus  high  proficiency  and  a  short  workday).  This  type  of  analysis  has  tradi¬ 
tionally  been  found  to  be  useful  to  the  system  analyst.  In  the  cases  shown,  the  ad¬ 
vantage  of  high  proficiency  far  outweighs  the  "advantage”  of  a  longer  workday. 


Average  Crew  Pace 

The  effect  of  varying  average  crew  pace  on  event  success  and  failure  is 
shown  for  parameter  sets  3  and  7  in  Figure  3-15.  As  would  be  expected,  the  per¬ 
centage  of  events  failed  increased,  and  the  percentage  of  events  successfully  com¬ 
pleted  decreased  as  the  average  pace  of  the  simulated  crews  decreased.  The  per¬ 
centage  of  events  failed  due  to  this  25  per  cent  decrease  in  average  crew  pace  (de¬ 
fined  as  a  slow  crew)  increased  approximately  13  per  cent,  while  the  percentage  of 
events  successfully  completed  decreased  approximately  8  per  cent.  These  changes 
in  event  performance  illustrate  adequate  sensitivity  of  the  model  to  variations  in 
this  variable. 


Reliability  Analysis 

Mean  time  between  failures,  mean  time  to  repair,  and  availability  were 
calculated  both  for  the  crew  and  for  the  equipment  in  the  simulations  involving 
each  parameter  set.  Additionally,  the  overall  system  availability  metric,  which 
is  a  function  of  both  equipment  and  human  reliability,  was  also  calculated  after  the 
completion  of  all  the  iterations  for  each  run.  Equipment  mean  time  between  fail¬ 
ures  (EMTBF),  equipment  mean  time  to  repair  (EMTTR),  and  equipment  availabil¬ 
ity  are  calculated  within  the  model  in  the  usual  manner.  Human  mean  time  between 
failure  (HMTBF)  is  calculated  in  terms  of  touchup  and  repeat  time,  while  human 
availability  (HAVAIL)  is  calculated  by  dividing  HMTBF  by  HMTBF  and  HMTTR, 
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These  statistics  are  particularly  sensitive  to  the  number  and  types  of  events 
actually  performed  during  a  simulation  run.  Because  of  the  stochastic  nature  of 
the  model  and  the  intention  of  requiring  a  large  number  of  unscheduled  (repair  and 
emergency)  events  in  the  sensitivity  tests,  the  actual  values  of  the  numerics  ob¬ 
tained  in  this  sensitivity  analysis  are  of  less  concern  than  relationships  between 
stochastic  runs  where  both  a  similar  number  and  type  of  events  were  performed. 

Also,  the  reliability  data  reported  are  only  a  sample  of  those  actually  com¬ 
puted.  However,  they  do  reflect  the  general  trends  observed.  Those  analyses 
which  resulted  in  counter-intuitive  findings  are  currently  being  investigated. 

The  present  discussion  is  particularly  interested  in  the  human  oriented 
metrics--HMTBF,  HMTTR,  HA  VAIL.  The  equipment  oriented  metrics  are  based 
on  the  usual  equation  and  reflect  input  data. 

Parameter  sets  2  and  3  differed  only  in  sea  conditions.  The  sea  state  in 
parameter  sets  2  and  3  was  9  and  0  respectively.  Table  3-6  presents  the  obtained 
reliability  values  for  these  parameter  sets. 


Table  3-6 

Overall  Reliability  Metrics  for  Parameter  Sets  2  and  3 

MTBF  MTTR  Availability  System 


Set 

Human 

EQUipment  Human 

Equipment 

Hum  an 

Equipment 

Availability 

2 

0.  744 

3.384  2.71 

20.  889 

0.  215 

0.  139 

0.  181 

3 

2.  226 

3.367  3.06 

21.  339 

0.  421 

0.  136 

0.  313 

The  parameter  set  2  crew  showed  shorter  HMTBF  (as  anticipated),  shorter 
HMTTR  (against  anticipation),  lower  availability  (as  anticipated),  and  lower  system 
availability.  The  reversal  of  directional  tendency  in  the  case  of  HMTTR  is  believed 
to  be  an  artifact  of  the  low  number  of  iterations  included  in  these  sensitivity  tests. 
However,  these  results  may  also  suggest  that  further  calibration  of  the  HMTTR 
measure  may  be  necessary. 

Table  3-7  presents  the  various  reliability  metrics  comparing  the  results 
from  parameter  sets  3  and  7.  These  two  parameter  sets  differed  only  in  the  assign¬ 
ed  average  crew  pace.  Parameter  set  7  represented  the  slower  crew.  All  the  met¬ 
ric  comparisons,  with  the  exception  of  the  HMTTR  comparison,  indicate  superior¬ 
ity  for  the  faster  crew.  There  was  a  considerable  increase  in  system  availability 
as  the  result  of  manning  the  simulated  system  with  a  faster  crew.  However,  again 
there  is  a  reversal  for  the  HMTTR  comparison.  The  present  thinking  relative  to 
this  reversal  is  the  same  as  that  discussed  for  the  prior  parameter  set  comparison. 


Table  3-7 


Overall  Reliability  Metrics  for  Parameter  Sets  3  and  7 


Parameter 

Set 


MTBF  MTTR  Availability 

Human  Equipment  Human  Equipment  Human  Equipment 


System 

Availability 


3 

7 


2.  226  3.367  3.06 
1.  649  3.  536  2.  86 


21.339  0.421  0.136 
18.  130  0.  366  0.  163 


0.  313 
0.  283 


The  effect  of  the  crew  size  variable  with  a  short  workday,  high  proficien¬ 
cy  crews,  average  crew  pace,  and  calm  seas  is  shown  in  Table  3-8.  Parameter 
set  4  includes  a  crew  of  14  men,  while  parameter  set  6  has  a  smaller  crew  (9  men). 


Table  3-8 

Overall  Reliability  Metrics  for  Parameter  Sets  4  and  6 

MTBF  MTTR  Availability  System 


Set 

Human 

Equipment 

Hum  an 

Equipment 

Human 

Equipment 

Availability 

4 

5.  314 

2.  829 

1.  88 

18.  754 

0.  739 

0.  131 

0.  531 

6 

6.  953 

3'.  157 

4.  60 

15. 829 

0.  602 

0.  166 

0.  441 

The  larger  crew  indicated  a  shorter  HMTBF,  a  shorter  HMTTR,  a  higher 
AVAIL,  and  a  higher  system  availability.  Here,  all  numerics  are  in  the  anticipated 
direction  with  a  20.  4  per  cent  increase  in  system  availability  resulting  from  the 
increase  in  crew  size. 


In  summary,  it  appears  that,  as  a  first  attempt  at  deriving  and  computing 
human  related  reliability  and  availability  metrics,  the  model  has  proved  success¬ 
ful.  The  reliability  metric  values  obtained  were,  by  and  large,  logical  and  inter¬ 
pretable.  There  seems  to  be  some  need  to  investigate  more  fully  the  HMTTR  met¬ 
ric  and  to  confirm  that  these  metrics  accurately  reflect  the  logic  of  the  model,  as 
well  as  the  real  world  situation. 


DISCUSSION,  SUMMARY,  AND  CONCLUSIONS 


The  present  study  attempted  to:  (1)  extend  and  strengthen  a  previously  de¬ 
veloped  model  for  simulating  the  acts  and  behaviors  of  the  operators  of  an  inter¬ 
mediate  size  system  to  include  a  greater  number  of  options  to  the  model  user,  (2) 
evolve  the  model  into  one  which  produces  reliability  oriented  metrics  for  both  hu¬ 
mans  and  equipment  on  both  an  event  and  overall  system  level,  and  (3)  conduct  an 
initial  series  of  sensitivity  tests  relating  the  new  variables  and  parameters  to  those 
already  present  in  the  model.  The  extensions  incorporated  as  well  as  the  new  reli¬ 
ability  metrics  introduced  were  reviewed  earlier  in  this  report. 

The  results  of  the  sensitivity  tests,  taken  as  a  whole,  suggest  that  the  logic 
for  the  modifications  and  new  variables  and  parameters  as  introduced  seem  to  re¬ 
flect  positively  on  the  model’s  content  validity.  More  specifically,  the  crew  size, 
sea  state,  average  crew  pace,  and  workday  length  variables  all  seemed  to  respond 
properly  in  direction  and  magnitude  in  response  to  the  variations  introduced.  The 
results  of  the  various  reliability  calculations  also  seem  promising.  However,  due 
to  the  novelty  and  uniqueness  to  this  model,  it  appears  that  more  extensive  tests 
and  analysis  is  required.  Real  mission  data,  as  opposed  to  the  high  equipment  fail¬ 
ure  probability  and  artificial  sequencing  of  scheduled  events  employed  in  the  test 
data  set,  are  required  for  a  more  definitive  evaluation  of  these  metrics. 

Additional  calibration  and  testing  of  the  present  model,  which  represents  an 
adaptation  of  the  Applied  Psychological  Services’  intermediate  size  crew  model 
(Siegel,  Wolf,  &  Fischl,  1969;  Siegel,  Wolf,  &  Cosentino,  1971;  Siegel,  Lautman, 

&  Wolf,  19  72)  is  currently  being  performed.  However,  when  one  couples  the  pres¬ 
ent  results  with  the  results  of  the  prior  sensitivity  tests  (Siegel,  Wolf,  &  Cosentino, 
19  71)  and  the  prior  tests  of  the  validity  of  the  model  (Siegel,  Lautman,  &  Wolf, 
1972),  there  is  considerable  basis  for  believing  that  a  useful  method  is  evolving. 

We  note  in  this  regard  that  additional  efforts  which  will  test  further  the  empirical 
validity  of  the  present  model  are  anticipated  by  Applied  Psychological  Services  in 
the  immediate  future. 


Stochastic  vs*  Deterministic  Predictive  Methods 

The  present  approach  is  based  on  the  belief  that  human  behavior  in  dynam¬ 
ic  social  and  work  situations  cannot  be  represented  by  deterministic  methods.  The 
approach  holds  that  the  social  and  work  situations  contain  considerable  random 
variation  and  that  such  variation  must  be  represented  in  any  predictive  technique 
which  is  concerned  with  these  situations.  The  logic  of  the  stochastic  modeling  ap¬ 
proach  is  also  based  on  the  contention  that  direct,  unidirectional  cause-effect  re¬ 
lationships  are  seldom  found  in  social  and  work  situations.  It  would  be  extremely 


pleasant  for  the  behavioral  scientist  if  such  direct  relationships  existed.  Nonethe¬ 
less,  to  argue  for  such  relationships  is  to  argue  against  the  whole  of  individual  dif¬ 
ferences  in  ability,  motivation,  and  attitudes. 

Moreover,  models  of  the  type  here  involved  possess  certain  diagnostic  or 
experimental  value.  They  allow  answers  to  questions  like:  What  would  happen  if  the 
system  is  manned  in  such  and  such  a  manner?  What  would  happen  if  1  increased  or 
decreased  the  length  of  the  workday  or  the  physical  workday  of  the  crew?  Deter¬ 
ministic  methods,  by  and  large,  do  not  allow  such  experimentation.  In  this  sense, 
we  hold  that  it  is  not  enough  to  know  that  a  given  system  reliability  will  probably  be 
attained.  It  is  equally  important  for  a  technique  to  provide  insight  into  areas  for 
required  remedial  action.  Otherwise  hit  and  miss  methods  will  be  employed.  Such 
methods  fail  to  possess  favorable  cost/ effectiveness  due  to  the  time  and  effort  in¬ 
volved  in  their  actuation.  They  also  do  not  allow  the  systematic  analysis  of  the  com¬ 
plex  interactions  among  subunits  which  themselves  may  be  nondeterministic. 


Summary  and  Conclusions 

This  report  presented  a  computer  based,  stochastic,  man-machine  simula¬ 
tion  model  designed  to  predict  and  describe  the  performance  of  intermediate  size 
crews  and  to  relate  that  performance  to  the  reliability  of  both  the  human  and  equip¬ 
ment  components  in  the  system.  The  rationale  underlying  the  selection  of  variables 
to  be  simulated,  the  internal  logic  of  each  variable,  and  the  expected  interactions 
were  all  described.  Specific  improvements  in  model  capabilities  in  terms  of  both 
increased  storage  capacities  and  the  introduction  of  new  variables  and  logic  were 
explicitly  detailed  and  related  to  the  calculation  of  human,  equipment,  and  system 
reliability  metrics.  Flow  charts,  variable  descriptions,  and  the  actual  model  pro¬ 
gram  (which  is  currently  still  being  enhanced  were  also  provided. 

The  sensitivity  of  the  model  was  also  tested  and  evaluated.  Variation  in 
several  key  variables  (such  as  crew  size  and  workday  length)  served  as  the  basis 
for  this  analysis.  The  results  of  the  test  and  analysis  suggest  that  a  reasonable 
start  had  been  made  toward  the  goal  of  developing  a  stochastic  modeling  technique 
for  quantifying  reliability  and  more  generally  for  providing  a  vehicle  for  effective 
system  planning  relative  to  a  variety  of  personnel  planning  situations. 

Specific  model  modifications  and  improvements  which  were  implemented  in¬ 
clude,  but  are  not  limited  to: 

•  extension  of  the  number  of  scheduled,  repair,  and  emer¬ 
gency  events 

•  incorporation  of  the  concept  of  event  family  for  both 
scheduled  and  repair  events  allowing  fine  grain  analysis 
of  event  performance  data 


•  introduction  of  the  concept  of  event  type  data  allowing 
the  analyst  almost  an  unlimited  set  of  parameter  val¬ 
ues  which  can  be  used  in  any  run  and  which  can  provide 
a  ^'bank”  of  parameter  values  which  can  be  used  for  any 
event 

•  development  of  metrics  for  quantifying  reliability  for 
humans  and  techniques  for  merging  such  values  with 
typical  equipment  reliability  data 

•  inclusion  of  the  option  of  introducing  shifts  into  the  work¬ 
day 

•  tracking  of  consumables  on  a  units  level  (’’spare  parts”) 


Further  refinements  of  the  model  are  necessary  and  are  currently  being 
implemented.  These  will  improve  the  model^s  fidelity  to  real  life  events  and  its 
internal  consistency.  Validation  studies  are  also  required.  These  are  also  plan¬ 
ned  in  the  immediate  future.  Nonetheless,  the  use  of  the  model  has  been  demon¬ 
strated  and  the  model  can  be  expected  to  be  of  utility  to  the  system  analyst  both  in 
the  design  and  test  of  new  systems,  as  well  as  in  analysis  of  systems  currently  in 
operation. 
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INPUT  Subroutine 
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KONl  Initial  level  of  consumables  (units 

KOMT  Threshold  consumables  (units/hours) 


INPUT  Subroutine 
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INPUT  Subroutine 
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JITE^  Internal  array  for  daily  summary 

K  Type  of  emergency 
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APPENDIX  B 


Input  Data  Formats 


APPENDIX  B 


INPUT  DATA  FORMATS 


Title  Cards 
Description 


FORTRAN  Format  Value 


Card  1 

Number  of  iterations 

NKASES 

13 

Card  2 

Title 

HEADR 

12A6 

Card  3 

Tape  input  option 

ITAP 

13 

Number  of  days  simulated 

NDMAX 

13 

Parameter  Names 

FORTRAN 

(card  4  and  on) 


72  spaces 


Value 


$PARAM 

NFP2/FP2= 


Average  psychological  stress  threshold  APST 

Hours  worked  after  which  no  new  assignments  are  made  WORK  1 
Hours  worked  after  which  further  work  is  unauthoriz¬ 
ed  ^  WORK  2 

Hours  since  last  sleep  period  by  average  crew  SLEEP 

member  at  start  of  mission 

Catnap  length-hours  below  which  is  rest,  and  above  CN 
which  is  sleep 

Maximum  sleep  permitted  per  day  (hours)  MAXSL 

Fatigue  threshold-below  which  sleep  is  not  authorized  TFAT 
Average  crew  space 

Number  of  calories  required  by  average  crew  member  CALRY 
per  day 

Average  short  term  power  output  for  average  crew  PWRRT 

member  (calories/hour) 

Derating  constant  for  acceptable  performance  K7 

Fraction  to  which  man^s  physical  capability  reduced  K1 
when  daily  quota  done 

Effect  of  stress  on  performance  Bp 

Initial  aspiration  level  AASP 


Initial  value  of  consumable:  1, 

(units /hour)  ,  2, 

3.. 

4_ 

5^ 

6^ 

7, 

8_ 

9_ 

10_ 


KON(l) 

K0N(2) 

K0N(3) 

K0N(4) 

K0N(5) 

K0N(6) 

K0N(7) 

K0N(8) 

K0N(9) 

KON(IO) 


137 


Title  Cards 

Description 


Consumable  threshold  for  consumable  1,  threshold  1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1,  threshold  2 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1,  threshold  3 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1,  threshold  4 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1,  threshold  5 
2 

3 

4 

5 

6 

7 

8 
9 

10 


FORTRAN 


K0NT(1,1) 

K0NT(2,1) 

Kont(3,l) 

K0NT(4,1) 

K0NT(5,1) 

K0NT(6,1) 

K0NT(7,1) 

K0NT(8,1) 

K0NT(9,1) 

KONT(10,1) 

K0NT(1,2) 

K0NT(2,2) 

KONT(3,2) 

KONT(4,2) 

KONT(5,2) 

K0NT(6,2) 

KONT(7,2) 

KONT(8,2) 

K0NT(9,2) 

KONT(10,2) 

K0NT(1,3) 

K0NT(2,3) 

K0NT(3,3) 

K0NT(4,3) 

K0NT(5,3) 

KONT(6,3) 

KONT(7,3) 

KONT(8,3) 

K0NT(9,3) 

KONT(10,3) 

K0NT(1,4) 

K0NT(2,4) 

K0NT(3,4) 

K0NT(4,4) 

K0NT(5,4) 

K0NT(6,4) 

K0NT(7,4) 

K0NT(8,4) 

K0NT(9,4) 

KONT(10,4) 

K0NT(1,5) 

KONT(2,5) 

KONT(3,5) 

K0NT(4,5) 

KONT(5,5) 

KONT(6,5) 

K0NT(7,5) 

K0NT(8,5) 

K0NT(9,5) 

KONT(10,5) 
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FORTRAN 


VALUE 


Title  Cards 
Description 


Consuinable  threshold  for  consumable  1, 

threshold 

6 

K0NT(1,6) 

5 

2 

K0NT(2,6) 

5 

3 

K0NT(3,6) 

9 

4 

K0NT(4,6) 

5 

5 

K0NT(5,6) 

9 

6 

K0NT(6,6) 

9 

7 

K0NT(7,6) 

9 

8 

K0NT(8,6) 

9 

9 

K0NT(9,6) 

9 

10 

K0NT(10,6) 

9 

consumable  1, 

threshold 

7 

K0NT(1,7) 

9 

2 

K0NT(2,7) 

9 

3 

KONT(3,7) 

9 

4 

K0NT(4,7) 

9 

5 

K0NT(5,7) 

9 

6 

K0NT(6,7) 

9 

7 

KONT(7,7) 

9 

8 

K0NT(8,7) 

9 

9 

K0NT(9,7) 

9 

10 

KONT(10,7) 

9 

consumable  1 , 

threshold 

8 

K0NT(1,8) 

9 

2 

K0NT(2,8) 

9 

3 

K0NT(3,8) 

9 

4 

K0NT(4,8) 

9 

5 

KONT(5,8) 

9 

6 

K0NT(6,8) 

i  9 

7 

KONT(7,8) 

9 

8 

K0NT(8,8) 

9 

9 

K0NT(9,8) 

9 

10 

KONT(10,8) 

9 

consumable  1 , 

threshold 

9 

K0NT(1,9) 

9 

2 

K0NT(2,9) 

9 

3 

K0NT(3,9) 

9 

4 

K0NT(4,9) 

9 

5 

KONT(5,9) 

9 

6 

KONT(6,9) 

9 

7 

K0NT(7,9) 

9 

8 

K0NT(8,9) 

9 

9 

K0NT(9,9) 

9 

10 

K0NT(10,9) 

9 

consumable  1, 

threshold 

10 

K0NT(1,10) 

9 

2 

K0NT(2,10) 

9 

3 

KONT(3,10) 

9 

4 

K0NT(4,10) 

9 

5 

KONT(5,10) 

9 

6 

KONT(6,10) 

9 

7 

KONT(7,10) 

9 

8 

KONT(8,10) 

9 

9 

KONT(9,10) 

9 

10 

KONT(10,10) 

9 
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FORTRAN 


VALUE 


Title  Cards 

Description 


Iniliisl  vRlnp*  of  consuniablo  i  1 

KONl(l) 

9 

r  1  Tn  1  1's  )  2 

K0N1(2) 

9 

3 

KONlO) 

9 

4 

K0N1(4) 

9 

5 

K0N1(5) 

9 

6 

K0N1(6) 

9 

7 

K0N1(7) 

9 

8 

K0N1(8) 

9 

9 

KONlO) 

9 

10 

KONl(lO) 

9 

Consumable  threshold  for  consumable  1, 

threshold 

1 

KONTl(l) 

9 

2 

K0NT1(2) 

9 

3 

KONTlO) 

9 

4 

K0NT1(4) 

9 

5 

K0NT1(5) 

9 

6 

K0NT1(6) 

9 

7 

K0NT1(7) 

9 

8 

K0NT1(8) 

9 

9 

KONTlO) 

9 

10 

KONTl(lO) 

9 

consumable  1 , 

threshold 

2 

K0NT1(1,2) 

9 

2 

K0NT1(1>2) 

9 

3 

KONTlO, 2) 

9 

4 

K0NT1(4,2) 

9 

5 

K0NT1(5,2) 

9 

6 

K0NT1(6,2) 

9 

7 

K0NT1(7,2) 

9 

8 

K0NT1(8,2) 

9 

9 

KONTlO,  2) 

9 

10 

K0NT1(10,2) 

9 

consumable  1 , 

threshold 

3 

K0NT1(1,3) 

9 

2 

K0NT1(2,3) 

9 

3 

K0NT1(3,3) 

9 

4 

K0NT1(4,3) 

9 

5 

K0NT1(5,3) 

9 

6 

K0NT1(6,3) 

9 

7 

K0NT1(7,3) 

9 

8 

K0NT1(8,3) 

9 

9 

KONTlO, 3) 

9 

10 

KONT1(10,3) 

9 

consumable  1 , 

threshold 

4 

K0NT1(1,4) 

9 

2 

KONT  l(  2 , 4 ) 

9 

3 

KONT  l(  3 , 4 ) 

9 

4 

K0NTi(4,4) 

9 

5 

KONT  1(5,4) 

9 

6 

KONT  1(6,4) 

9 

7 

K0NTi(7,4) 

9 

8 

K0NTl(  8,4) 

9 

9 

K0NTi( 9,4) 

9 

10 

K0NTl( 10,4) 

9 

FORTRAN 


VALUE 


Title  Cards 
Description 


Consumable  threshold  for  consumable  1,  threshold  5 

2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1,  threshold  6 
2 

3 

4 

5 

6 

7 

8 
9 

10 


consumable  1,  threshold  7 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1 ,  threshold  8 
2 

3  ■ 

4 

5 

6 

7 

8 
9 

10 

consumable  1,  threshold  9 
2 

3 

4 

5 

6 

7 

8 
9 

10 


K0NT1(1,5) 

K0NT1(2,5) 

K0NT1(3,5) 

K0NT1(4,5) 

K0NT1(5,5) 

K0NT1(6,5) 

K0NT1(7,5) 

K0NT1(8,5) 

KONTl (9,5) 

K0NT1(10,5) 

K0NT1(1,6) 

K0NT1(2,6) 

K0NT1(3,6) 

KONTl (4, 6) 

K0NT1(5,6) 

K0NT1(6,6) 

K0NT1(7,6) 

K0NT1(8,6) 

K0NT1(9,6) 

KONTl (10, 6) 

KONTl (1,7) 

K0NT1(2,7) 

K0NT1(3,7) 

K0NT1(4,7) 

KONTl (5, 7) 

K0NT1(6,7) 

KONTl (7,7) 

K0NT1(8,7) 

K0NT1(9,7) 

KONTl (10, 7) 

K0NT1(1,8) 

KONTl (2,8) 

K0NT1(3,8) 

KONTl (4, 8) 

K0NT1(5,8) 

KONTl (6, 8) 

K0NT1(7,8) 

K0NT1(8,8) 

K0NT1(9,8) 

KONTl (10, 8) 

K0NT1(1,9)) 

K0NT1(2,9) 

K0NT1(3,9) 

K0NT1(4,9) 

KONTl (5,9) 

K0NT1(6,9) 

K0NT1(7,9) 

K0NT1(8,9) 

K0NT1(9,9) 

KONTl (10, 9) 


Title  Cards 

Description 


FORTRAN  VALUE 


Consumable  threshold  for  consumable  1,  threshold  10 

2 

3 

4 

5 

6 

7 

8 
9 

10 


KONT1(1,10) 

KONT1(2,10) 

KONT1(3,10) 

KONT1(4,10) 

KONT1(5,10) 

KONT1(6,10) 

KONT1(7,10) 

KONT1(8,10) 

KONT1(9,10) 

KONT1(10,10) 


Sea  State 

(term  and  height  of 


waves  in  feet)  0  -- 
1  — 
2  — 

3  — 

4  -- 

5  — 

6  — 

7  -- 

8  — 
9  -- 


calm,  glassy 
rippled,  0-1 
smooth,  1-2 
slight,  2-4 
moderate,  4-8 
rough,  8-13 
very  rough,  13-20 
high,  20-30 
very  high,  30-45 
phenomenal ,  over 
45 


SESTA(l) 

SESTA(2) 

SESTA(3) 

SESTA(4) 

SESTA(5) 

SESTA{6) 

SESTA(7) 

SESTA(8) 

SESTA(9) 

SESTA(IO) 


Intermittent 

Intermittent 

Intermittent 

Intermittent 


reliability — electronic  equipment 
reliability— electrical  equipment 
reliability — electromechanical  equipment 
reliability — mechanical  equipment 


RELI(l) 
REEK  2) 
RELI(3) 
RELI(4) 


Number  of  mission  iterations 
Number  of  iterations  per  computer  run 
Essentiality  threshold,  below  which  an  event  is 
ignored  (1-100) 

Indicators  for  output  recording  options 

Print  all  inputs  (1),  or  parameters  only  (O) 

Print  (1),  or  don't  print  (0):  crew  initial  conditions 

:  day  numbers  of  1st.  re¬ 
pair,  emergencies 

Print  detailed  event  results  for  all  events  beginning 
with  day 

Print  end  of  day  results  for  all  days  beginning  with ^ day 
Print  (1)5  or  don't  print  (0)  mission  results  by  indivi¬ 
dual  man 


N 

lET 

IND(l) 

IND(2) 

IND(3) 

IND(4) 

IND(5) 

IND(6) 

IND(7) 


NIP 2 /IP 2 


$ 


Title  Cards 
Description 


Mean  body  weight  of  total  population 
Standard  deviation  of  population  body  weight 
%crew  fully  qualified  in  prime  specialty 
%crew  minimally  qualified  in  prime  specialty 
%crew  unqualified  in  prime  specialty 
%crew  fully  qualified  in  second  specialty 
%crew  minimally  qualified  in  second  specialty 
%crew  unqualified  in  second  specialty 
Avg.  N  man  days  between  physical  incapacitations 
Avg.  duration  of  incapacity  (days) 

Physical  capability  constant,  a  value  yielding  zero 
Physical  capability  due  to  over  exertion 


FORTRAN 


WT 

SIGWT 

PPFQ 

PPMQ 

PPUQ 

SPFQ 

SPMQ 

SPUQ 

MPI 

PID 

ZPC 


VALUE 

$PERSNL 

NFPl/FPl 


Crosstraining  probability 

(probability  of  man  with  given  specialty  also  being  trained  in  each  other  specialty). 


second  specialty 


prime  specialty 


Crew  composition 

number  of  men  in  each  specialty  at  each  eschelon  (rank) 


eschelon 


prime  specialty 


FORTRAN 


Title  Cards 

Description 

Number  of  duty  shifts 
Crew  duty  shift  assignment 
Man  1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


NDS 

IDS(1-6,1) 

IDS(l-6,2) 

IDS(l-6,3) 

IDS(l-6,4) 

IDS(l-6,5) 

IDS(l-6,6) 

IDS(l-6,7) 

IDS(l-6,8) 

IDS(l-6,9) 

IDS(1-6,10) 

IDS(1-6,11) 

IDS(1-6,12) 

IDS(1-6,13) 

IDS(1-6,14) 

IDS(1-6,15) 

IDS(1-6,16) 

IDS(1-6,17) 

IDS(1-6,18) 

IDS(1-6,19) 

IDS(l-6,20) 


FORTRAN 


VALUE 


Title  Cards 


Description 


Equipment  repair 

Reliability  (days  between  failure) 

Intermittent  failure  duration  (hours) 

Repair  maximum  duration  (minutes) 

RELH 

TUI 

DTR 

$EQREVT 

NFP4/FP4= 

_ 9 

_ 9 

_ 9 

For  each  event  in  the  repair  family 

Event  1  Probability  of  next  event 

PRB(1-3,1) 

9 

_9 _ 

_ 9 

Data  change  number 

IEDC(1-3,1) 

9 

9 

_ 9 

Data  change  value 

EDCV(1-3,1) 

9 

_9 _ 

_ 9 

Event  2  Probability  of  next  event 

PRB(l-3,2) 

9 

_9 _ 

_ 9 

Data  change  number 

IEDC(l-3,2) 

9 

_9 _ 

_ 9 

Data  change  value 

EDCV(l-3,2) 

9 

_9 _ 

_ 9 

Event  3  Probability  of  next  event 

PRB(l-3,3) 

9 

_9 _ 

_ 9 

Data  change  number 

IEDC(l-3,3) 

9 

_9 _ 

_ 9 

Data  change  value 

EDCV(l-3,3) 

9 

_9 _ 

_ 9 

Event  4  Probability  of  next  event 

PRB(l-3,4) 

9 

_9 _ 

_ 9 

Data  change  number 

IEDC(l-3,4) 

9 

_9 _ 

_ 9 

Data  change  value 

EDCV(l-3,4) 

9 

__9 _ 

_ 9 

Event  5  Probability  of  next  event 

PRB(l-3,5) 

9 

_9 _ 

_ 9 

Data  change  number 

IEDC(l-3,5) 

9 

_9 _ 

_ 9 

Data  change  value 

EDCV(l-3,5) 

9 

9 

_ 9 

Event  6  Probability  of  next  event 

PRB(l-3,6) 

9 

_9 _ 

_  9 

Data  change  number 

IEDC(l-3,6) 

9 

9 _ 

_ 9 

Data  change  value 

EDCV(l-3,6) 

9 

_9 _ 

_ 9 

Event  7  Probability  of  next  event 

PRB(l-3,7) 

9 

_9 _ 

_ 9 

Data  change  number 

IEDC(l-3,7) 

9 

_9 _ 

_ 9 

Data  change  value 

EDCV(1,3,7) 

9 

_9 _ 

_ 9 

Event  8  Probability  of  next  event 

PRB(l-3,8) 

9 

_9 _ 

_ 9 

Data  change  number 

IEDC(l-3,8) 

9 

_9 _ 

_ 9 

Data  change  value 

EDCV(l-3,8) 

9 

_9 _ 

_ 9 

Event.  9  Probability  of  next  event 

PRB(l-3,9) 

9 

_9 _ 

_ 9 

Data  change  number 

IEDC(l-3,9) 

9 

_9 _ 

__9 

Data  change  value 

EDCV(l-3,9) 

9 

_9 _ 

_ 9 

Event  10  Probability  of  next  event 

PRB(1-3,10) 

9 

_9 _ 

_ 9 

Data  change  number 

IEDC(1-3,10) 

9 

9 

__9 

Data  change  value 

EDCV(1-3,10) 

9 

_9 _ 

_ 9 

Event  11  Probability  of  next  event 

PRB(1-3,11) 

9 

_9 _ 

__9 

Data  change  number 

IEDC(1-3,11) 

9 

9 

_ 9 

Data  change  value 

EDCV(1-3,11) 

9 

9 

_9 

Event  12  Probability  of  next  event 

PRB(1-3,12) 

9 

9 

__9 

Data  change  number 

IEDC(1-3,12) 

9 

_9 _ 

_ 9 

Data  change  value 

EDCV(1-3,12) 

9 

_9 _ 

~'9 

145 


Title  Cards 

Description 


FORTRAN  VALUE 

\nip4/ip4= 


Repair  description 
Equipment -Number 
Description  (72  digits) 

Threshold  ( unit  s /hour ) 

Threshold  (units) 

Number  of  repair  events  in  family 
Family  number 

(repeat  for 


each  repair) 


Event  family  members 


Event  1  Type  number 
Precedent  events 
Next  events 

Repair/Touch  up  (1,253) 

Event  family  indicator  (0,1 ,2) 
Event  2  Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  3  Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  4  Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  5  Type  number 
Precedent  events 
Next  events 
Rep air /Touch  up 
Event  family  indicator 
Event  6  Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  7  Type  number 
Precedent  events 
Next  events 
Repair/ Touch  up 
Event  family  indicator 


NFQRE 

TSR 

TSRl 

IRE 

lEFN 


lETYP 

IPE 

NX(1-3,1) 

RTU 

IFOI 

lETYP 

IPE 

NX(1-352) 

RTU 

IFOI 

lETYP 

IPE 

NX(1-353) 

RTU 

IFOI 

lETYP 

IPE 

NX(l-3,4) 

RTU 

IFOI 

lETYP 

IPE 

NX(1-355) 

RTU 

IFOI 

lETYP 

IPE 

NX(1-356) 

RTU 

IFOI 

lETYP 

IPE 

NX(1-357) 

RTU 

IFOI 


72H 


?  5 


Title  Cards 
Description 


FORTRAN  VALUE 


Event  8  Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  9  Type  number 
Precedent  events 
next  events 
Repair/Touch  up 
Event  family  indicator 
Event  10  Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  11  Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  12  Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 


lETYP 

IPE 

NX(l-3,8) 

RTU 

IFOI 

lETYP 

IPE 

NX(l-3,9) 

RTU 

IFOI 

lETYP 

IPE 

NX(1-3,10) 

RTU 

IFOI 

lETYP 

IPE 

NX(1-3,11) 

RTU 

IFOI 

lETYP 

IPE 

NX(1-3,12) 

RTU 

IFOI 


5  _ 9, 


9 _ 9 


9 _ 9 


(repeat  for  each  repair — up  to  twelve  events) 


Title  Cards 
Description 


Emergencies 

Emergency:  Description 

Essentiality 
Men  required  (by  type) 

Mental  load 

Rate  of  consumable  expenditure  (units/hours) 
Threshold  (units/hours) 


Threshold  (units) 

Hazard  class 

Energy  consumption  ( calories /hr ) 
Number  days  between  emergencies 

(repeat  for  each  emergency) 


Average  recovery  time  (hours) 

Average  standard  deviation  of  recovery  time  (hours) 
Duration  target  (hours) 

(repeat  for  each  emergency) 

Event  type  data 

Description 

Essentiality 

Number  of  men  required  (by  type) 

Mental  load 

Kind  of  event  end  time 

Kind  of  event 

Rate  of  expenditure  of  consumables  (units/hours) 
Rate  of  expenditure  of  consumables  (units) 

Hazard  class 

Energy  consumption  (cal. /hr.) 

Number  of  equipments  required 

Equipments  required 

Class 


FORTRAN 


lESSE 

NREQE(1-5,1) 

NREQE(6-10,1) 

LODME 

IRCE(1-5,1) 

IRCE(6-10,1) 

TSE 

IRCE1(1-5,1) 

IRCE1(6-10,1) 

TSEl 

IHE 

IECE(1-5,1) 

IECE(6~10,1) 

NDBE 


ART 

ASDE 

DTE 


lESS 

NREQ(1-5,1) 

NREQ(6-10,1) 

LODM 
KE 
I  NT 

IRC(1-5,1) 

IRC(6-10,1) 

IRC1(1-5,1) 

IRC1(6-10,1) 

IH 

IEC(1-5,1) 

IEC(6-10,1) 

NIQR 

IQR(l-6) 

ICLASS 


VALUE 

$EMREVT 

NIP5/IP5= 

72H _ 

_ 5 

_ 5 9 9 9 9 

9  9  9  9 9 


9 _ 9 _ 9 _ 9 _ 9 

9 _ 9 _ 9 _ 9 _ 9 


9 _ 9 _ 9 _ 9 _ 9 

9  9  9  9 _ 9 


9 _ 9 _ 9 _ 9 _ 9 

9  9  9  9 _ 9 


NFP5/FP5= 


9 

$ 


.  $TYPE 
\NIP6/IP6= 
72H 


_9 _ 9 _ 9 _ 9 _ 9 

9  9  9  9 _ 9 


9 _ 9 _ 9 _ 9 _ 9 

9 _ 9 _ 9 _ 9 _ 9 

9 _ 9 _ 9 _ 9 _ 9 

9  9  9 _ 9 _ 9 


9 _ 9 _ 9 _ 9 _ 9 

9 _ 9 _ 9 _ 9 _ 9 

9  9  9 _ 9 _ 9 _ 9 


(repeat  foe  each  event  type) 


Title  Cards 

Description  FORTRAN 


Average 

duration 

(hours) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

( hours ) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

( hours ) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours ) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours ) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours ) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours ) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

( hours ) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours) 

ADUR 

Average 

standard 

deviation 

ASD 

Average 

duration 

(hours ) 

ADUR 

Average 

standard 

deviation 

ASD 
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FORTRAN 


VALUE 

NFP6/FP6= 


Title  Cards 
Description 


Average  duration  (hours) 

Average  standard  deviation 

(repeat  for  each  event  type) 


ADUR 

ASD 


Scheduled  events  title  card 


FORTRAN  FORMAT  VALUE 


(Input  card  not  free  format) 

Day  number  for  this  iteration 

Number  of  scheduled  events  this  iteration 

Title 


ND 

NOSE 


13 

13 

11A6 


(66  spaces) 


Scheduled  events 

FORTRAN 

VALUE 

Type 

Precedent  events 

lETYP 

$SCHEVT 

NIP3/IP3= 

i 

IPE 

9 

Threshold  (units/hour) 

Threshold  (units) 

Repair/ Touch up 

Event  family  indicator 

Number  in  family 

Family  number 

Next  events 

TS 

9 

TSl 

9 

RTU 

9 

IFOI 

9 

NIF 

9 

lEFN 

9 

NX(1-3,1) 

_ 9 _ 9 _ 9 

(repeat  for  each  scheduled  event) 

Time  limit 

Start  time  (hours) 

Probability  of  alternatives 

Data  change  number 

Data  change  value 

TL 

NFP3/FP3= 

9 

ST 

9 

PRB(1-3,1) 

9 

IEDC(1-3,1)  . 

9 

EDCV(1-3,1) 

$ 

(repeat  for  each  scheduled  event) 
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Logic  Flow  Charts 
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DETERMINE  DAY  OF  OCCURRENCE  OF  NEXT  FAILURE  FOR 


TO  PAGE  4 


156 


DETERMINE  OPERATOR-INDUCED  FAILURES  ON  SCHEDULED  EVENTS  AS  A 
FUNCTION  OF  SEA  STATE  AND  MENTAL  LOAD: 


DETERMINE  POSITION  OF  REPAIR  FAMILY 
KK  =  KK+  1 

lEVENT(KK)  =200+  12(10  ^  1)  +  1 


(PAGE  7) 
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SELECT  MOST  DESIRABLE  MAN  NN  /  OVERTIME  REQUIRED? 


162 


163 


COMPUTE  PERFORMANCE  TIME: 


GSTR  =  0.9  •  GSTRM 


FROM  PAGE  14 


167 


TO  PAGE  16 


COMPUTE  TIME  FATIGUE  AND  PHYSICAL  CAPABILITY 
FOR  ALL  MEN  IN  GROUP: 


168 


FOR  MEN  IN  GROUP 


COMPUTE  AVERAGE  PHYSICAL  WORKLOAD  AND  PRIMARY 
COMPETENCE: 


171 


FROM  PAGE  19 


172 


173 


READ  IN  NEW  _  PRINT  END  OF 

PARAMETERS  RUN  SUMMARY 
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APPENDIX  D 


Program  Organization 


APPENDIX  D 

COMPUTER  PROGRAM  ORGANIZATION 


The  Computer  Program 


The  program  for  the  model  was  given  the  name  P420  and  was  prepared 
in  the  widely  accepted  FORTRAN  IV  programming  language.  All  runs  reported 
were  made  on  the  Honeywell  635  computing  system. 

The  H-635  is  a  36  bit  word  machine  with  cycle  time  of  one  microsecond. 
The  ISM  model  requires  32k  words  of  core  memory  storage  to  compile  and  execute 
where  k=  1024. 

A  page -heading  subroutine,  available  at  most  computer  installations, 
and  two  random  number  generators  are  the  only  non-standard  routines  which 
would  require  special  consideration  when  executing  the  simulation  program  at 
other  facilities.  The  program  was  prepared  with  computer  independence  in 
mind  so  that  converting  the  P420  program  to  FORTRAN  for  another  large  scale 
computer  should  require  little  more  than  replacing  control  cards  and  recompiling 
on  the  new  computer. 

The  model  divided  into  a  executive  program  (XMAIN),  input  and  output 
routines,  and  several  supporting  subroutines,  and  several  supporting  subroutines. 
In  general  terms,  the  executive  performs  the  following  functions: 

a)  Performs  all  initializations 

b)  Calls  for  parameter  and  personnel  data  from  input 
routine 

c)  Determines  crew  characteristics 

d)  Calls  for  emergency  and  equipment  repair  event 
data  and  determines  when  in  mission  these  events 
are  to  be  simulated 

e)  Calls  for  scheduled  event  data  for  each  day  from  input 
routine 

f)  Determines  order  for  events  to  be  simulated  for  the 
day 

g)  Selects  crew  for  each  event 

h)  Simulates  crew  performance  and  evaluates  same 
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i)  Allows  for  second  attempt  of  "failed"  event 

j)  Prints  results  for  each  event  (optional) 

k)  Determines  next  event 

l)  At  end  of  day,  summarizes  events  for  day  and  calls 
output  routine  to  print  daily  results 

m) At  end  of  iteration,  calls  output  routine  to  print 
iteration  summary 

n)  At  end  of  mission,  calls  output  routine  to  print 
mission  summary 

The  detailed  event  results  (item  j  above)  will  be  printed  on  events  for 
which  the  event  and  day  numbers  exceed  the  values  of  IND(5)  and  IND(4)  respec¬ 
tively  (see  Appendix  A,  Table  A-7). 

The  input  routine  (INPTl)  is  responsible  for  accepting  the  simulation 
input  data  and,  after  verifying  that  each  input  section  contained  the  proper 
number  of  data  items,  passes  the  data  to  the  executive.  Optionally,  a  complete 
listing  of  all  input  data  can  be  printed  by  the  input  routine  (see  IND(l)  Appendix 
A  Table  A-7).  The  parameters  are  unconditionally  printed.  If  a  section  of  the 
input  file  does  not  contain  the  proper  number  of  data  items,  an  appropriate  mes¬ 
sage  together  with  all  of  the  data  or  that  type  (e.g.  ,  personnel  data)  is  printed 
for  review  and  the  program  halts  after  checking  the  remaining  input  sections. 

There  are  four  entries  to  the  input  subroutine  (OUTPl).  The  first  entry 
is  used  when  a  listing  and  summary  of  the  crew  characteristics  is  requested. 

This  output  occurs,  when  requested  by  print  option  2,  at  the  beginning  of  each 
iteration.  This  option  is  dependent  on  IND(2)  (see  Appendix  A,  Table  A-7). 

The  second  entry  provides  for  summarizing  the  results  of  a  days  simula¬ 
tion.  A  printed  listing  of  these  data  may  or  may  not  be  effected,  depending  upon 
print  option  6,  The  end  of  day  results  will  be  recorded  on  such  iteration  on  those 
days  for  which  the  day  number  exceeds  the  value  of  IND(6). 

The  third  entry  in  the  output  routine  unconditionally  prints  the  (see  example 
Table  2-5)  report  summarizing  the  data  obtained  at  the  end  of  each  iteration  of  the 
simulated  mission.  Table  206  presents  this  format. 

The  fourth,  and  final,  entry  unconditionally  summarizes  and  prints  data 
obtained  at  the  end  of  each  run  of  N  iterations  as  shown  in  Table 

The  supporting  subroutines,  also  coded  in  FORTRAN  IV,  are  FBUILD, 
IPUYSN,  and  PSCAP.  The  function  of  FBUILD  is  to  compute  fatugue  buildup  for 
the  men  in  the  crew;  IPUYSN  generates  random  numbers  with  a  poisson  distribu¬ 
tion;  and  PSCAP  determines  primary  and  secondary  competence  levels  for  each 
man  in  the  crew. 


# 
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The  Input  Card  Deck 


The  card  deck  organization  for  execution  of  the  program  on  the  H635 
is  shown  below: 


Column  1 

$ 

$ 


$ 

$ 

$ 

$ 

$ 


$ 


Column  8  Column  16 

SNUMB  ■  XXXXX 

IDENT  XXXXX, - 

OBJECT  DECKS:  XMAIN,  OUTPl, 
INPTl,  IPUYSN,  FBUILD,  PSCAP 

EXECUTE 

LIMITS  05,  32k,  2000 

TAPE  10,  XID,,  XXXXX,, - 

FILE  12,  X6R,2R 
INCODE  (OPTION) 

input  data  for  all  formats 

ENDJOB 

Figure  D-*l  P420  Deck  Set-Up 


The 

The  five  digit  number  in  the  first  card  represents  a  run  number  used 
by  the  computation  center  to  identify  the  run.  The  5  digit  number  in  the  second 
card  represents  a  charge  number  or  accounting  code.  On  the  LIMITS  card,  the 
numbers  indicate  the  maximum  length  processor  time  core  memory  (K=  1024) 
and  print  lines  on  a  given  run.  The  run  will  be  terminated  if  any  of  these  condi¬ 
tions  is  noted.  On  the  TAPE  card,  the  numbers  indicate  the  logical  unit  number, 
the  channel  number  (D=  dismantle  after  run),  and  the  physical  tape  reel  numbers. 
The  options  on  the  INCODE  card  are  either  IBMF  (FORTRAN  code  prepared  on 
the  Model  026  Keypunch)  or  IBMEL  (extended  language  code,  prepared  on  the 
Model  029  Keypunch). 

At  many  installations,  both  the  $SNUMB  and  $IDENT  cards  are  prepared 
by  the  operations  personnel.  The  $TAPE  card  is  required  only  on  runs  requiring 
more  than  one  iteration  or  for  runs  employing  the  tape  input  option. 


When  a  simulation  with  multiple  iterations  is  completed  a  tape  containing 
a  large  portion  of  the  input  data  has  been  created.  This  tape  may  be  used  in  ^ 
subsequent  simulations  by  choosing  the  tape  option  for  input.  The  tape  contains 
all  the  input  following  the  $PERSNL  data  group.  This  means  that  if  the  print  opUon 
was  in  effect  (IND(l)/  0)  when  the  tape  was  created,  the  descriptors  for  the  equip¬ 
ment  repairs  and  emergency  events  are  also  on  the  tape.  Hence  the  user  must 
enact  the  print  option  when  employing  that  data  tape.  Failure  to  do  so  will  cause 
improper  reading  of  records  and  the  program  will  abort. 


Program  Timing 

The  recompilation  time  on  the  H -635  is  from  one  to  two  minutes  depend¬ 
ing  on  the  extent  of  the  programs  compiled.  Execution  time  is,  of  course  dependent 
on  the  simulation  input  data  involved.  The  following  execution  time  estimates  are 
examples  from  runs  made  with  the  mission  data  described  in  Chapter  III.  A  run 
of  10  iterations  during  which  recording  was  made  for  summaries  only  consumed 
about  .  020  seconds  per  event,  A  run  in  which  all  detail  event  output  was  recorded 
consumed  ,  059  seconds  per  event  or  about  1.  2  minutes  for  a  5  iteration  run.  As 
another  example,  a  two  mission  case  each  with  5  iterations  of  4  days  with  full 
detail  recordings  of  all  events  took  146  seconds  of  processor  time.  This  corresponds 
to  0.  056  seconds  of  processor  time  per  event. 


Computer  Simulation  System 


APPENDIX  E 


Computer  Program* 


This  computer  program,  like  all  simulation  programs,  is  evolutionary.  The 
program  presented  in  Appendix  E  represents  the  status  of  the  simulation  model 
program  as  of  November  22,  1974. 


CXHaIN  X^AIN 

COMMON/PRSNEL/WT,SIG»T,PeFO.PPMQ,PPUO»SPFOfSPMQ,SPUQr 
lHPl,PlD,ZPC,PTT(10nO).MEN{10»4),NDS,  IDS{6»20> 

COMMON/ 1  Par  AH/ APSTy;woRKi>woRK2,  Sleep.  CM,  maxsw.tfat.acp. 

lCAl.RY.PMRRT,K7,Ki;BE.AASP.KON(lO),KONTaO,10)  .KONKIO)  , 

2  KONTl(10.10)*SESTA(il),RELl(4)iN. lET , I  NO ( 7 ) .NOMAX 
COMMON/EQREVNT/  IDF (30 ) |REUH(30) .DTR(37o ) . TU I <30 ) • IRE<30 ) 
COMMON/EEMER/ART(10),ASDE<10),DIE<10J  .  lESSE(lO)  .NREQEdO.lO). 

1  LODmE(IO)  .  IRC! (10.10 J»  IRCEKlonOliTSKlO)  .?Sil{10)nHE(10)i 
1  IECE{10.10),DTBftlO}»NOBE{10)  ^  .  .n 

COMMON/ETYPE/ADUR>ASeflESS,NRE0n0),U00M,KE,INT|lRC(10>,lRCl(10), 
j  IH.IECdOl^NIQR'lQP^^J'ICl'ASS- 
COMMON/SEVENT/IETYP(57o>*TI(57q},ST(57o) ,EDCV(3.57o) , 1PE<57o), 

1  TS(570),TS1(570)>NX(8»570),RTU^570),!FOI(570>,IEFN(570).NIF<570) , 

2  !EDC(3.570).PRB(3i570)IN0SE,nE0RE,nEmE,DI (9) 

C0MM0N/QC0M/PC0M{20J .SC0M<20) . IPS(20> • ISS ( 20) . TPC0M( 20 ) . TSCOM< 20 > 
COMMON/OPPl/  IAAt4) bPC{20) .PACE(20) , ASP(20> .HSL$(20J ,PI (20) 
1,PI2(20).ICE(20) 

COMMON/OPP2/  TW(20),fWP(20).TWS(20),DS{20) , aPW<20).PCC<20)i 

1  CASP(20J.  IPC(20).  NSUCl.tjSUqg.NFALE.NlGNR. 

2  KONCdO)  .KONCldO) ,  8 1 , CML .ND ,  I T|R i NDAYS , MPeC(20 >  .FAT ( 20 ) 

3  ,STRM(20).CaI-(20).PWR<20).CCaI.<20).NU(20),PERF(20).MPRFm(4) 

4  .APA.SFDIFF,CLSDTA(i8,40| 
COMMON/OPP3/lC,FLIC,NRiPT,HRSEiHRSR,HRSS.PEFF, 

1  MAXST.MAXSTE.USHTtNRfNTE.NE.TEH.CMLMX.ICML.SIDCMX.IDCMX.lCSS 
COMM0N/OPP4/ePI(30>iG0T(30).CART|30).CUT(30). 

1  AEPL.EPEFF,EMTBF;EMTTR,sRL.SPI*SGEM 
INTEGER  TS,TSl.RTU,TS6,TSEl.TSR*TSRl 
INTEGER  P12.PTR(240)  ,|OIF<10) 

REAL  KONC.N0SUC(20) ,NOFAIU(20)i IDC.KONE(20).MPCC  .MAXST.NU 
REAL  MPI,MAXSI.K7vKI,IEC.IODM.IH,IRC.KON.KON1,KONT.KONT1 
REAL  IECE,  IHE. IRCEiLODME. J8T 
DIMENSION  NPTR(580> I ADURJ0{55) 

1  .KONE1<20) 

DIMENSION  PSC0M(40), |PSS(4o>.PCDUM{6),TPSCOM(40) 

equivalence  (PCpUM.PPFOI. (PSCOM,PCOM),(IPSS;1PS).(TPSCOM.TPCOM) 
equivalence  ( ADURyADURIOl 

dimension  NS(20).  IDEIIO)-,  .  ^ 

1  Z(20).ZC{570), lEVENT(570)iNReOT(10),MAVAlL(20)# 

2  TAVAlL(20)»MA(20.10)nTYPB(20).MAT(20>.WHi20).ACAL(20). 

3  PT<570).TITLE<9) 

dimension  MCHSN(20)i  |NVS( 570 ) i USH { 6 ) 

DIMENSION  HEADR(12> 

data  HEADR(1)/72H  APPLIED  PSYCHOLOGICAL  SERVICES  WAYNg,  PENNA 

1,  ARTHUR  I.  SIEGEL/ 

data  TITLE/6HSCHEDg.6HLED  iV.SHENT  .ftHREPAlR.SH  FAMIL. 

16HY  ,6HEMERGEi6HNeY  EV.6HENT  / 

data  YU.ESSS.PEA/6H  U.6H  S,6H  P/ 

DATA  STAR.BLANK/6H  •»6H  / 

FUNCtA.B,  D)  »  (A  ♦  fA«BJ/4.)  *  D 
CALL  RANSIZ{i2.55) 

REA0(5.9Q50)  NKASES 
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KASE  ■  0 

10  KASE  «  KASE+l 

if(Kase  .gt.  nkaseS)  caLU  exit 

READ(5.9045)  HEADR 
9045  rORMATa2A6) 

CALL  SPGHDR(HEADR) 
l.MAX«10 
|.MAX1*10 
NTMaXsIO 

iter=o 

NIKQUNT  •  0 

READ(5.9050)  ITAPvNDMAX 
CAI.U  XXIN 
50  ITERsITER*! 

ITAP  =  ITAp+1 
NDAYS  5  0 
9050  format  (213) 

CAl.1,  INPUT(ITAP.KASE) 

KMAX»NEME 
IQMAXsNEQRE 
IEMAXsNOSE  +  NEQRE^NEMB 

c«*»count  the  crew  for  each  echelon  and  assign 
C«**EaCH  man  a  CrEw  echelon 


IC  i  0 

DO  110  I  *  1»4 
1 AA< I )  s  0 
DO  100  J  e  liNTMAX 
100  lAA(I)  *  I  AAM  )  +  MEN<ilf  1 ) 
110  IC  »  IAA(  I  )'»!C 


FLIC  *  IG 
II  *  1 


JJ  4  0 

DO  120  I  ^  1#4 
jj  i  iAAn)*jJ 
|F  (JJ.LT,  in  60  TO  110 
DO  115  J  *  inJJ 
115  ICilJ)  »  I 
n  f  jj*i 

120  CONTINUE  ,  . . 

C»**ASSI6N  PRIMARY  SPeCULTIeS 


M  »  1 

DO  160  J  =  li4 
DO  160  1  »  l.NTMAX 
II  s  MENd.J) 

IF  ni  .EO.O)  GO  TO  169 
DO  155  K  a  lill 
IPS(M)  a  I 
155  M  s  M+l 
160  CONTINUE 

c*»«assi6N  secondary  specialties 

DO  220  I  *  1,IC 
n  a  1PS(I> 

TEMl  =  gNIFMltO.O) 

TEMl  «  TEMl*PTT(NTMAX|in 
DO  210  J  •  1»NTMAX 
IF  (PTTIU.in -LTiTEMII  go  to 


2ie 
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o  o  o  o 


issd)  s  j 
GO  TO  220 

210  continue 
220  continue 

C»»«PC,  CAL.PWR, PACE, ASP, HSUS, fat, STRM  FOR 
c*<»<^each  Man 

DO  300  I  »  I.IC 
TEMl  s  DNORMKO.O) 

Pen  )*<WT*TEM1#S.16WTJ/WT 
CAUU)  *  PC(I)*CAURY 
PWRH)  ■  PC(I)»PWRRT 
PaCE(I)  ^  ACP  +  DNORMKO.O)  «  0,11 
ASP(n  a  AMIN1(AASP*AISP*DNORM110,0)/10,0,1.0S 
HSLS(I)  t  SLEEP+DNORM|(0.0)*SUEEP#o.25 
FAT(I)aFBUILD(HSLS(I)) 

300  STRM(I)  9  APST+ONORM1(0,0>*APST/6,0 
C**«CAUCUUaTE  primary  and  secondary  COMPETaNCE 
C***FOR  EACH  man  AND  CCI»IN1TIaL  CREW  COMPETaNCE 
caul  PSCAPI lAA.PCDUM,  PSCOM) 
cej  9  0.0 

DO  360  1  s  I.IC 
360  GCl  9  ecu  PCOM(I) 

CCl  a  CCI/FLIC 

C«*<»CAUCUUATE  physical  incapacities 
365  DO  370  I  s  I.IC 
Pl(I)=1.0 
370  Pl2{n  =  0 

NPI  »  IPUYSN(FL1C/MPI » 

IF  INPI.EQ.O)  GO  TO  390 
DO  380  I  =  liNPl 
n  8  UNIFm1(0'?0)*Fi,IC 
Pldl)  =  0.2»PNIFMi{o.O)*0.75 
380  Pl2<n)  8  IPUYSNIPIOJ 

iteration*#-initiaui?ations 

550  ND  »  1 

DO  960  I  s  liKMAX 

560  IDEII  )  a  0 

DO  970  I  a  l.iQMAX 

570  IDFtl)  a  0 

DO  980  I  =  IiUMAX 

580  KONCd)  s  KON(l) 

DO  585  I  *1»LMAX1 
585  KONCl  (I )  ?  KONl  tl  ) 

DO  590  I  a  l/IC 

Nsin  =  0 

ACAUn)  s  HSUS(I>*CAL(I)/24.0 
CASPII)  s  ASP(p 
PERFIDsaSPIT) 

Nosucm  a  0,0 

590  NOFAlLd)  a  Ovo 

determine  day  OF  OCCURRENCES  OF  NEXT  FAILURES  AND  EMERGENCIES  FOR 
failure  and  equipment 


DO  605  I  9  I.IQMAX 


11  =  RELH  (I)  •  ALOG(UNirMl(0.0))  -  0.5 

IF{lI.EO,0)Ila-i 
6o5  lord)  =  IDFin-II 

DO  410  I  a  l.KMAX 

II  s  NDfiEtll  *ALOGlUNlFMj.{0,0>)  -  0.5 

IFdl.EQ.O)!!*-  1 
610  IDE(p  *  IDE  <I)  -  U 

IF  < IND(3) .EO.O)  GO  TO  650 

WRITE  (6,9610)(MDnn,I  ,  1»I0MAX) 

96,0  F0RMAT(i9Hi PRINT  OPTION  ThREE/S’W  fAllURE  TYPE---DAY  OF  FIRST  OCC 
lURRENCE/tlH  10nS<lH-iI4,4XJ)) 

WRITE  (6,9611)(I,IDE(I)|I  »  l.KMAXJ 
9611  FORMAT(lHO/4lH  EMERaSNCT  TYPE— DAY  OF  FIRST  OCCURRENCE/ 

1  (IM  10(13, 1H-,I4>4X))) 

C*«<^BE3IN  simulation  FOR  EaOH  D  AY-— I  NI  T  I  AL  II  aT  !  ONS 
650  NJGNRaO 
NSUClsO 
NSUCPsO 

nfaie=o 

NREPTsO 
DO  655  1*1,4 
655  NPRFM(I}aO 

DO  658  jai.io 
DO  658  I«l,40 
658  CLSDTA(J,I)e  0-0 
JShT  a 
HRSEaOrO 
HRSRaO . 0 
HRSSaO.O 
MAySTsO , 0 
MAXSTEsO 

DO  660  I  a  I.IEMaX 
660  Zc( I)  =  0.0 

DO  670  I  a  1,  IC 
TW{ I )  a  0.0 
TWP(I)ao.O 
TWS< 1 )aO  .0 

MPcc(  n=o.  0 

lDC( I )  a  0,0 
Ds{ I )  a  0.0 
NUdJsO.O 
670  2(1)  a  0.0 

CML  a  0.0 

CMLMXa-l.ElO 

ICMLaO 

SlDCMXaCMUMX 
IDCMXaO 
TEH  a  0.0 
SFDtFFbO.O 
SEFcO.O 
ISIEaO 
APAaO. 0 

DO  675  Isl.IQMAX 
CUT(I)  a  0,0 
CDT  (I)  a  0.0 
CaRT(I)  ^  0.0 
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EPL(P  =  0.0 
$75  CONTINUE 

cauculate  sea  state 

ICSS  «9 

ATEM  s  UNlfMl  (0.0) 

DO  680  Isil.9 

705  ForMaT(1H0.2I5,2F7.4> 

IF  (ATEM  .GT.  SESTA  M)  )  GO  TO  680 
ICSS  el”! 

GO  TO  685 
680  CONTINUE 

68S  PSESIC  •  0.0555  •  ICSS 
DO  690  IbI.  1C 
TPCOM  (I)  s  PCOM  (I) 

TSCOM  ( 1)  =  SCOM  ( I  ) 

IF  (UNIFMI(O.O)  .GE.  PSESIO  GO  TO  $90 
TPCOM  (1)  s  TPCOM  (J)  *  (1-  less*  0,0555) 

TSCOM  (1)  s  TSCOM  (I|  *  (l-  ICSS*  0,0555) 

69-  CONTINUE 

WRITE  (6,682)  ICSS.PSESJC 

682  FORMaT(i9HoCUBRENT  SEft  ST  ATE?  I  PERCENT  SEaS  I  CKbFT  .  4) 

CAUU  DINPUT 

IF{ND  .GE.  IND(4))  «R I TE( 6 , 8502) 


8502  FORMAT(lHl) 

C**«1DENTIFY  failures  and  EMERGENCIES  FOR  THi  DAT 
C***AND  compute  NEXT  OCCURRENCE  FOR  EACH 
700  NR  s  0 

KK  s  NOSE 

DO  710  1  *  I.IQMAX 

IF  (  IDF(  I )  .NE'^ND)  go  to  710 

NR  a  NR+1 


710 

750 


760 


KK  a  KK*1 

IEVENT(KK)s200+(I-l>»$2  ♦  1 

I1bRELH( I )*ALOG(UNIFM${0.0))-.5 
lF{n  .EQ.O)  Ils-l 
IDF(I)  a  IDF(I)-II 
CONTINUE. 

NE  a  0 

DO  760  I  a  l.KMAX 
IF  (iDEd  )  .NE.ND)  go  to  760 
NE  a  NE+1 


KK  a  KK+1 

IEVENT  (KK)  a  I  *  560 
n  B  NDBEdJ  * 

IF(n.EQ,0)Il»-  1 
IDE  (I)  IDE(I)  II 

continue 

NuMFAM  a  0 
NOIFT  a  0 

1ST  s  (less  «  1)  /lO. 

DO  697  lal.NOSE 

IF  (NR  +  NOIFT  ,6Ei  30) 


AUOG  (UNIFMKO.O)) 


60  TO  697 


NOIF  a  0 

IF  (iroi  (I)  ;NE,  1)  so  TO  $97 


0.5 
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ra  cs  o  o  o  o  o  o  o  o  o  o  o  o  rs  o  o 


NUMfAM  1  NUHtaM  ♦  1 
IF  (NOIFT  ,GT';  10)  GO  TO  697 

;  ACCESS  TYPE  DATA  FROM  DISC 

iTEMsIETYPd) 

READ(12’nEM.ERR?30G0*  ADURIO 

P 

IF  (NIQR  .EO,  05  GO  TO  697 

DO  698  INIQ  =  I.NIQR 
IF  (NOIF  .EG.  1)  GO  TO  698 
RY2  =  UNIFMI  (0.0) 

3TEM  s  0,001 

IFIUQDM.GT.  35  BTEM?0i01 
IF(L0DM,GT ,65  8TEMsO,03 
ATEM  8  FUNC( BTEM,RY2# 1ST) 

IF  (  ATEM  aTV  UNIFM1(0,055  go  to  698 
NOIF  8  1 
KK  1  KK  ♦  1 

COUNTER 

NOJFT  s  NOIFT  *  1 

WHICH  repair  sequence 

ieVENT(KK)=200*).2«(  lOROJIOR)-!)*! 

WHICH  SCHEDULED  EVENT  HAS  AN  OIF 

lOIF  (NOJFT)  8  I 
698  CONTINUE 
697  CONTINUE 

NR  IS  NUMBER  OF  REPAIR  FAMILIES 

NR  s  Nr  ♦  NOIFT 
NOSEl  =  0 

NTE  8  NR  ♦  nE  *  NOSE 
DO  770  1  8l,  nose 
IF  {  IFOI(I)  "NE.  1)  GO  TO  770 
lEVENT  (I)  8  I 
NOSEl  =  NOSEl  *  1 
770  continue 

randomly  assigns  repairs  then  EMERGENCIES  TO  TASK  SEQUENCE  AND 
THEN  FILLS  IN  SCHEDULED  EVENTS  TO  QUEUE  IN  ORDER  OF  INPUT 

***  generate  pointers  for  events  for  this  day 

775  DO  780  I  «  1,NTE 
780  PTR(I)  s  0 

JJ  8  NqSE  ♦  1 

TEMl  *  NTE-1 

DO  810  I  8  JJaNTE 

II  *  UNIFM1(0''0)»TEM1*1,Q 

jFtPTRdl))  785»805.T85 
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o  o  O  O  O  O  O  «-> 


785  KK  =  II 
790  1  1  *  lUl 

IF  (II  .GT.NT§)  GO  TO  795 
IF(PTR(II))  790.805|790 

•  795  n  s  kK 
800  II  a  ll'l 

IF  (PTR(II) .NE.O)  GO  TO  800 
805  KK  *  IEVENTI I> 
pTRdl)  s  KK 
INVS(KK)  =  11*1 
^  810  CONTINUE 

•  KK  a  1 

DO  820  Irl.NOSE 
IF  tlFOId)  .NE.  1)  GO  TO  820 
815  IF(PTR(KK)  .EQ.  0)  GO  TO  818 
KK  a  KK+1 
GO  TO  815 

•  818  PTR(KK)  a  I 

820  CONTINUE 

KOUNT  Is  increment  FOR  NPTr  TO  INCLUDE  OIF  AND  FAMILT  MEMBErS 

IGAP  a  0 
KOUNT  =  0 
PO  831  Ial*NTE 
IPTR  a  PTR  (I) 

IF  (IPTR  .NE.  0)  GO  TO  841 
IGaP  a  IGaP  *  1 
GO  TO  831 

841  CONTINUE 

NPTR  (I  ♦  KOUNT  -  IqAP)  ?  IPTR 
IF  (IPTR  .GE.  561)  GO  TO  831 

ISWi  s  0  SCHEDULED  AND  REPAIR  EVENTS 
ISWi  a  1  REPAIR  EVENTS  FOR  OIF 

ISWI  a  0 

835  IF  (IPTR  .GT,  200)  GO  TO  842 
INIF  a  Nir  (IPTR)  -  1 
IF  (INIF  .EQ,  0)  GO  TO  834 
GO  TO  843 

842  INIF  a  IRE  ((IPTR-20flJ  /12  ♦  1 )  -  1 
IF  (INIF  ,EQ,  0)  GO  TO  834 

845  Do  832  Jil.  iNlF 
kOunt  a  kOunt  ♦  1 

NPTR  <l  ♦  KOUNT  .  IGAP)  5  IPTR  *  J 
832  CONTINUE 

CHECK  IF  SECOND  TIME  THROUGH 

834  IF  (ISWi  .EO.  1)  GO  TO  831 
IF  (NOIFT  ,EO?  0)  GO  TO  831 
IF  (IPTR  ,GT.  200)  GO  TO  831 
ISWlal 

DO  833  Jal»NOTFT 

IF  (IPTR  .NE,  IOIF<J)  )  GO  TO  833 
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OOCl  O  o  O  ’Ttoo 


HAVE  AN  Oir 


KOUNT  =  KOUNT  *  1 
IPTRs  IEVENT(NTE*J) 
GO  TO  835 
833  continue 
831  CONTINUE 


THIS  LOOP  COUNTS  TOTAL  NO.  OF  EVENTS  • 

DO  8  1*1.570 

IF(NPTR(  1  )  ,EQ'.'0  )  GO  TO  9 
6  CONTINUE 
9  NTEsI-1 


DO  821  1*1. NTE 

IF(NPTR< n .IE.200)  GO  TO  826  • 

821  CONTINUE 
826  <Ks561 

NX(1,KK)=NPTR(  I  ) 

DO  024  I»1,NTE 

KsNPTRd)  A 

INVS(K)=I  +1 
IFrK.LE.200)  GO  TO  825 
IF{K,GT.560)  GO  TO  822 

IF  flRE((K-2oi)  /12  *  1  )  .EQ.  1  .OR,  IFOItKI  .EQ.  2)  GO  TO  822 
GO  TO  824 

622  NX{1.K>*NX(1^KK> 

NX(2.K)sNX(2.KK)  • 

NX(3.K)rNX{3.KK) 

PRB<l.K>sPRB(l.KK> 

PRBf2.K)=PRB(2.KKj 

PRB(3.K)'?PRB{3,KK) 

GO  TO  824 

823  KK=K  - 

824  CONTINUE  • 

830  lElE  «  1 

840  IE  *  NPTR  ( IEIE) 

IFIrsT  =  1 

*»»  resets  For  Each  Even? 

850  IPI  *  0 

IGcO  • 

ITRV  *  0 
IGNOR  =  0 

DO  865  JI  *  1  .  NDS 
USH  (JI)  *  0, 

865  CONTINUE 

»*»  DETERMINE  WHETHER  EVENT  SHOULD  BE  IGNORED 


ACCESS  TVPE  DATA  FROM  DISC 
C«*«»**  EMERGENCY  IF  TYPE?  -1 
ITEM«IeTYP( IE) 

IF( ITEM.EQ . (rl) )  GO  TO  851 
REaD(12' ITEM.ERR*3000I  ADURIO 
SO  TO  854 
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ra  ra  o  o  o  o  o  o  o  o 


851  aODR»aRT( IE„560> 

ASDsASDE{ lE-560) 

IESSsl£SSE( IE-560) 

L0DM=L0DME( IE-560) 

<E  =  2 

1NT*1 

NIQRfO 

IH=1HE( IE-560) 

ICLASS=5 
DO  852 

NREQ<  n?NREQEn.lE»560> 

IRC( I )=IRCE( 1. IE-560) 

JRCin  )sIRCEl(I  >  IE-560) 

852  1EC{ I )=IECE( I » IE-560) 

854  IF  (  IE  .GT,  200)  GO  10  862 
If  {IESS  .GE.  lET)  GO  TO  855 
IGIMD  =  1 

GO  TO  1815 

855  «K  3  TS(IE) 

IG1NDs4 

DO  660  I  =  l.UMAX 

IFIKQNCd)  .UT.  K0NTei*KK))  GO  TO  1815 

860  CONTINUE 
IGIN0s5 
«K=TS1{ IE> 

DO  861  IsliUMAXl  . 

IFIKONcid)  ,LT.KONTin#KK)  )  GO  TO  1815 

861  continue 

compute  NUMBER  OF  HOURS  PER  SHIFT 

862  SFTHrS  =  24,/FL0AT(NDS) 

IF  (  IFIRST  ,EQ.  0)  GO  TO  857 
1  FIRST  3  0 

IF  INPTR  (1)  .EG.  IE)  GO  TO  865 
857  IF  (NIF(IE)  .GT.  1)  GO  TO  863 
IF  I  IFOI  ( IE)  .GT.  1)  60  TO  863 
IF  j  IG  ,GT.  1)  GO  TO  863 

HAVE  first  EVENT  IN  ONE  EVENT  FAMILT  WITH  ONE  MAN  GROUP 


JJsMAT(I) 

IL  f  ITYPE  <JJ) 

IF  fNREQT(LL)  .NE.  D  GO  TO  863 
ATEM  «  KTEMP  *  SFTHRS 
IF{ADUR^Z(  JJI-JLE.ATEM^O.SSIGO  TO  1150 
863  CONTINUE 

JJ  r  IPEIIE) 

JNDS  «  NOS 

determine  earliest  SHIFT  JOB  CAN  BE  STARTED  ON  AND  LATEST  TIME  gl 
1  JOB  MUST  BE  COMPLETED 


m  R  (AMAX1(2C(JJ)« 
IF(KE  .EQ.DJNDSb 


S1(IE)))/SFTHRS  *  1. 
Tl»(  IE)/SFTHRS*  ,99 


0 


c 

c 

c 


905 


LSHIFt 

wSHlFT 


0— first  sort  tHROqGH  All  POSSIBLE  SHIFjS 
1--  SECOND  SORT  WITH  DESJRED  SHIFT 


LSHIFT  =  0 

format  (lQH0SHIFTHRSiF11.3f3l6) 
30  TO  877 


C 

c 

c 

878 

877 

Xq66 


880 

885 


900 

910 


920 

925 


C 

c 

c 

c 


934 


BRANCH  TO  HERE  WHEN  LSHIFT  *  1 


Ills  ktemp 

JNDS  s  KTEMP 

DO  875  J I  3  ITI»JNDS 

IG  IS  total  NUMBER  OF  MEN  REQUIRED  FOR  EVENT 
WRITE(6.1066)  KTEMP, 1 1 1 1 JNDS 
rORMAT(lHO^I10> 


IG  »  0 
JPI  =0 
IGNOR  =0 

DO  880  I  »  liNTMAX 


NREQT( I)=NPEQ( n 

SELECTION  OF  PERSONNEL  FOR  EACH  TYPE 

KIND  =  0  wmeN  Selecting  primary  specialties 

KIND  s  1  WHEN  selecting  SECONDARY  sPiCIALTlEg 

no  885  1=1,  IC 


MCHsNI I )=0 
KIND  »  0 
II  «  1 
<A  *  0 

IF  {INT  .E0.2)  GO  TO  1020 
IF  (NREQTI 1 1)  ;NE,0)  GO  TO  925 
IF  (II .EQ.NTMAX)  60  TO  920 
II  *  11*1 
KA  s  0 
GO  TO  900 

IF  (IPI.EQ.O)  GO  TO  1060 
IF(KIND)  1060,1020,1060 
IF  (KA.NE.O)  GO  TO  990 
TEM1=TL( IE) 

LU  »  KInD»20 
DO  950  I  s  1,1C 
LL  s  LL+1 

1F(MCHSN(I),NE,0>  GO  TO  950 


TRIVIAL  CASE  IS  IDS(J|  ,ll  s  1  FOR  ALL  JI 
THIS  CASE  IS  ORIGINAL  --NO  SNIFT--MODEL 


IF  (IE  .QT,  ?00>  GO  TO  930 
IF  (IDS{JI,n  .NE#  i)  GO  TO  960 
NKOUNT  *  NKOUNT  *  1 
IF  (NKOUNT  .QT,  100)  60  TO  934 
WRITE  (6,941)  I,JI»SFTHRS 
CONTINUE 

ZTEMP  *  JI  *  SFTHRS  ♦  1,0 
IF  (ZTEMP  .GT-:  24.0)  ZTEMP  S  24*0 
IF  (NKOUNT  .GT,  100)  GO  TO  942 
WRITE  (6.941)  JI,1»SFTHRS,ZTEMP)Z(I) 
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941 

942 

93o 


935 

940 

950 

955 

958 

960 


970 

980 

990 


995 


1000 


c 

c 


FORMAT  (6H0ZTEMP  2I5»5F10.3) 

CONTINUE 

IF  (Z(I  )  .GTV  ZTEMP}  GO  TO  950 
CONTINUE 

IF  (lPSS(LL>,NE.in  GO  TO  950 
IF(Z( I ),GT.TEM1>  60  TO  950 
IF  (TW(I).GT,W0RK2)  go  TO  950 
KA  I  KA*1 
MAVAIL(KA)  =  I 
CALRsPWR( I ) 

TEM2  ■  lECdl) 

IF  (CALR,LE.TEM2)  go  to  935 
CALR  ■  1.0 
GO  TO  940 
CALP  »  CAI.R/TEM2 

TAVAIL(KA)  =  1000. 0-10. 0«TW(I)*CAI,R4TPSC0M  (LU) 
CONTINUE 

IF  (KA,NE,0>  go  to  960 
IPI  s;  1 

IF  {KIND.EQ.O)  go  to  no 

IF  a^HIFT  .go.  1)  GO  To  910 

USHUI)  ^  USN  (JI)  *aour  •FUOATINREQTI  1 1 )  ) 

go  to  9io 

KK  s  KA-1 

IF  {KK.EO.O>  GO  TO  999 
DO  980  I  •  l.KK 
LL  =  Ka-1 
DO  970  J  =  l.LL 
TEMl  *  TAVAIHJ) 

IF  (TEM1,UE.TAVAII.<  J*I))  GO  TO  970 
TAVAIL(J)  *  TAVAIU(J*1) 

TAVAIL(J*1)  *  TEMl 
NN  s  MAVAILIJJ 
MAVAIL<J)  »  MAVAIKJ*!) 

MAVAIKJ*!)  s  NN 

CONTINUE 

CONTINUE 

IF  (KA.EQ.O)  GO  TO  955 
NN  s  MaVAIL(KA) 

KA  ■  KA-1 

IF({IE.GE.561)  .OR.HBS8  , EG, .100))  GO  TO  lOOO 

IF  (TW(NN)*A0UR  .UB.WORKl)  GO  TO  1000 
IFIKIND.EQ .1)  GO  TO  958 
IPl  »  1 
GO  TO  910 

IF<TW(NN> .GT^W0RK2I  80  TO  995 

IGtIG+1 
mChSN(NN)=1 
MAIIG.in  «  NN 
MATUG)  ?  NN 
ITVPEINNJ  i  I'l 
NREQTIin  *  NBEQTtllJ*! 

IF(KA  .NE,  0)  GO  TO  900 
IFINREQTdl))  955’,910f955 

RESET  FOR  SECONDARY  BBARCH 
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<  ^  o  o  r  j  o 


1020  KIND  s  1 
11*1 
GO  TO  900 

C«««  SELECT  leader 

1060  CONTINUE 
875  CONTINUE 

WRITE (6. 10 63)  ( USH ( 1  ABC > i I  ABCs  11 1 , JNDS ) 

1063  r0RMAT(9H0USW0URSsl2F10,5) 

LSHlFT  s  0  CHECK  ALL  SHIFTS 

USHIFT  =  1  ONCE  through  LOOP  WITH  BEST  SHIFT 
IF  (LsHIFT  .FQ.  1)  60  TO  1064 

assign  job  to  SHIFT  {FIRST  WITH  ZERO  USH  OR  MINIHUM  QSH) 
C 

KTEMP  =111 

IF  I  11  I  .EQ,  JNDS)  go  to  1064 

iiiPi  =  in  •  1 

DO  1061  JI  *  llIPlrJNOS 
RTEMP  =  USHIJI)  -  USHIKTEMP) 

WRITE  (6,io7?)  JI.USHCJP,  USH(KTEMP)  , RTEMP  , 

1072  FormAT(1H0I6,3F9,5) 

IF  (RTEMP)  1076.1061*1861 
1G.’6  RTEMP  s  RTEMP  ♦  O.OOflt 

IF  (RTEMP)  1078,1061,1061 
lO^e  CONTINUE 

KTEMP  =  JI 

1061  CONTINUE 
LSHIFT  m  1 
GO  TO  878 

1064  FLIG  a  IG 

IFdG  .NE,  0)  GO  TO  1065 
IGIND  =  2 

C  DO  1062  m.NTMAX 

C1062  IG»IG*NREOT( n 
C  USH8USH*ADUR( IE)*FL0aT( IG) 

GO  TO  1815 

1065  LI  *  MAT(1) 

JJ  a  ICE{LI) 

IF  ( IG.EO.l)  GO  TO  1190 
DO  1080  I  a  2,,IG 
KK  »  MAT(  I  ) 

IF( ICE(KK)-JJ)  1075,1070,1000 
1070  IF  (TPC0M(KK>  ,LE.  TPGOMdll))  GO  TO  1080 
1075  LI  *  KK 

JJ  *  ICE(KK) 

1080  CONTINUE 
C 

C  determine  zi  -  earliest  time  all  SrOUP  is  available 

n 

L/ 

1150  KK  a  0 

Zl  s  0.0 

DO  1160  I  s  l,IG 
JJ  s  MAT(  I  ) 


1160  Z1  «  AMaX1<Z1^Z(JU)) 

DETERMINE  EARLIEST  TIME  WHEN  THE  EVENT  CAN  BEGIN 
JJ  ■  IPEIIE) 

TEM2S0.0 

IFUvJ.NE.O)  TEM2fZC(yj) 

ATBM  »  KTEMP  *SFTHRS 
Z2iAMAXl(Zl»TEM2.ST(IB),ATEM> 

IF(Z2  .I.T.  TL(IE))  go  to  1162 
IGIND  =  3 

USH#KTEMP)  «  USH  (KTEMP)  ♦  ADUR  •  FLIO 
GO  TO  1815 
C 

1162  DO  1165  I  s  i^IG 
JJ  *  MAT(I) 

Ce*i^**  IS  A  NON-SCHEDUUED  REST  OR  SLEEP  REQUIRED  DUE  TO  STaRT  TIME 
WHIJJ)  -  Z2-Z(JJ) 

IF  (WH(JJ) .NEVO.O)  KK  *  1 
1165  CONTINUE 

IFIKK.EQ.O)  go  to  1280 

TEM2»CN+.5 

IS  THE  time  since  L^ST  EVENT  LONG  ENOUGH  TO  ALLOW  SLEEP 
DO  1260  I=l»lG 
JJ  =  MATd)  ^ 

Ip<Wh(JJ).UT,TeM2)  qO  to  1240 
IS  SLEEP  QUOTA  FOR  DAT  USED 
IF(OS(JJ>  .GE’-  MAXSL)  GO  TO  1240 
OR  **  IS  FATIGUE  UNDER  THRESHOLD 
IFIFATtJJ)  .LE,  TFATJ  GO  TO  1240 
C««6  NEITHER  ««  SUM  SLEEP  THIS  DAV  FOR  EACH  N  |N  6 
TEmi=MAXSL-DS( JJ) 

c»*<>  LIMIT  wh(jj)  so  That  ds  ,le.  maxsl 

DS< JJ)*AMINl(DS< JJ)*WH( JJ)-,5iMAXSL) 

CALCULATE  time  FaTIGUE  DUE  TO  SLEEP  RELlEf  FOR  EACH  M  IN  G 
TEMlnAMINKWHt  JJ)»TEHl)-.5 
IFlTEMi  ,LE.  9,0)  GO  TO  120? 

1200  FaTIJJ)  »  0.0 
GO  TO  1220 

1205  IFlTEMi  .LT.  1.0)  GO  TO  1210 

FATIJJ)  s  FAT(JJ)*((158, 0-19. 0»T|M1)/140, 0*0, 2#UNIFM1(0,0)) 

GO  TO  1220 

1210  FAT(JJ)  s  FAT{JJ)*(0.9-0.05»TEMI*0.2*UNIFMl(fl,0)) 

1220  IF{FAT(JJ)  ,LT.  0.0)  FAT<JJ)  s  q.O 
iF(FAT(JJ)  ,GT.  1.0)  FATUJ)  s  l.O 
ACAL(JJ)  *  0.0 
TEMl  s  FAT(JJ) 

lF{TEMl  ,GT.  0.9)  GO  TO  1225 
IFITEMi  ,GT.  0.15)  GO  TO  1224 
HSLSIJJ)  »  53/333333  f  FATIJJ) 

GO  TO  1260 

1224  HSLS(JJ)  *  14v66666?<»TEM1*5.B 
GO  To  1260 

1225  HSLS (JJ)iAMAXl (310, 0»TEMI-260. 0.0.0) 

60  TO  1260 

C*»»»  ADJUST  HOURS  SINCE  LAST  SLEEP  FOR  THIS  M 
1240  HSLS(JJ)  s  HSLSIJJ)  *  WHIJJ) 

C  CALCULATE  FaTIGUE  BUILDUP  FOR  THIS  HaN  DUE  TO  REST 
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1377 

1378 

C  »  «  » 
1300 


1380 


FAT(JJ)  *  FBUILD<HSLSrJiJ> ) 

^calculate  physical  capability  of  each  man  in  6R0UP 

SAVE  MAX  PHyS  capability  POR  EAfcH  MAN 

GPCC  =  O.D 

DO  1295  I  »  l^IG 

JJ  =  MAT{I  ) 

KK  s  IPSIJJ) 

TfcM2=  lEClKK)  /PWRtJJ.)  " 

IF  (TEM2.GE.1.0)  GO  TO  1285 
EXER  »  1.0 
GO  TO  1290 

EXfcR  s  (ZPC-TEM2)/{ZPE-1.0) 

TEMial  ACAL{JJ)/CAL(JJM«*2  , 

TEmI  s  pC(JJ)«PI{JJ)**1|0-(1.0-K1J»TEM1)*EXER»(1.0»v.1*FAT(JJ)) 

IF  (TEMI.LT  .070)  TEMI  f  0.0 

IF  (TEMI, GT  ,270)  TEMI  «  2,0 

MPCC(  JJ)*AMAXl(MPCCfiJJ)  »TEMl) 

PCC( JJ)sTEMl 
GPCC  *  GPCC^TEMI 
Spec  *  GPCC/FUlG 

calculate  group  stress  threshold  and  GROUP  STRESS 

GSTRMaO.O 
DO  1370  I  r  l^IG 
JJ  *  MaT{  I  ) 

GSTRM  s  GSTRM  +  STRM(JJ)  ' 

GSTRM  =  GSTRM/FLIG 

IF(  1E.GE.560)  GO  TO  $377'  « . ,  ,  ,7,,  ,  ,  e »  » 

GSTR  a  (AOUR  *(.875*L0DM  t, q25) >/<TL( li)-Z2) 

Gp  TO  1378 
GSTRaGSTRM 

IF  (gSTR.gT.970)  gSTR  a  5,0 

^CALCULaTi6nS°F0R^PERF0RMaNCE  TIME  and  END  TIME 
IFtASD  .NE 7 0,0)  GO  TO  1360 
IF  (KE  .NE';l)  GO  TO  l3l0 
IF{(Z2*ADUR  )  .GT.  TL(IE))  GO  TO  l320 

PT{IE)  a  ADup 

ZC(IE)  »  TL<IE) 

GO  TO  1550 
PT { IE )  a  ADUR 
ZC(IE)  a  Z2+PT(IE) 

GO  TO  1550 
PT(IE)  a  TL{IE)-Z2 
ZCdE)  *  TL(IE> 

GO  TO  1550 

''^calculate  group  Performance,  group  aspiration  level 

GPERF  a  0.0 
gasp  a  0.0 
DO  1390  I  a  1#IG 
JJ  a  MAT(I ) 

QPERF  =  GPERF+PERF( JJ) 

GASP  a  GA8P-*-CASP(  JJ) 

GPERF  a  GPERF/FLIG 
gasp  a  GASP/fUIG 


198 


O  TD  Cl 


Co««  SELECT  ONE  OF  FIVE  CSSES  COMPARING  GASP  WITH  GPERF 
AND  GSTR  WITH  GSTRM 
TEMl  =  GASP-GPERr 
IF  <ABS(TEMi)aE.0,02)  GO  TO  1460 
TEM2  =  GSTR-QSTRM 
IF  (TEMl.GT.OvO)  GO  TO  13^5 
IF  {TEm2)  141O,145Oi1450 
1395  IF  (TEM2J  1400 , 1430 i 1430 
1400  PAF  =  1 . O-O . 4»TEMl 
GO  TO  1460 

1410  DO  1420  I  »  l^IG 
JJ  s  MAT(  I  ) 

TEM3ePERF< JJ)-CASP(JJ) 

IFITEM3.LE.OVO)  GO  TO  1420 
TEM3»CASP( JJ)*0 .1*TEM3«DNORMi<0 ,0) 

IF  ITEMS. GT. 1.0)  TEM3  =  1.0 
CASP( jj)sTEM3 
1420  CONTINUE 
GO  TO  1460 

1430  DO  1440  I  s  IG 
JJ  «  MaTI  1  ) 

1440  oASPlJJ)  s  PEBF(JJ) 
pAF  s  1.0*0.4«TEM1 
GO  TO  1460 

1450  GSTR  =  0.9«GSTRM 

c  *  calculate  performance  time 

1460  IF  IGPCC.GE.l.O)  GO  TO  1470 
SF  s  2.0-GPCC 
GO  TO  1480 

1470  SF  5  1.5"GPCC*0.5 
1480  TEM3  =  0.0 

DO  1490  I  s  1/lG 
JJ  s  MATH  ) 

1490  *EM3  =  TeM3*PACE(JJ) 

GRACE  '  TEM3/FLIG»SF4PAr 

test  for  repairs 

IF  (IE  .LT.  201)  GO  TO  1492 

IF  I  IE  ,GT.  560)  GO  TO  1492 

TEMl  »  1  ♦  (ASD  •ASD)/UDUR  •  ADUR) 

V  =  EXPIALOGIADUR/SQRTITEMI)  >  ♦  DNORMIIO.OJ  •  SORT  IAL0G<TEM1)>) 
GO  TO  1493 

1492  V»  ADuR  *  DNORMKO.O)  «  ASD 

1493  CONTINUE 

ADUR  2  s  ADUR/2. 

V  s  AMAyi(ADUR2. V) 

IF  |TEM2,GE.0V0)  go  TO  1500 
TEM3  a  (GSTR-1.0)/(GSTRM-1.0) 

PT(IE)  a  grace  4  V  »n-  2.3075  *  TEm3)  *  (3,4722  •  TEm3  *  TEM3) 

1  ♦  1-1.829  4  TEM3  *  T6M3  •  TEM3)*1) 

C  PTIIE)  a  GPACE4V4tl,fl*TEM34(-2.S5075*TiM34(3. 4722-1. 8294TEM3))) 

GO  TO  1535 

1500  IE  |TEM2,GT.i.o)  GO  TO  1510 

PT( IE)5GPACE4( I2,04TEH2*1, o)4V-TEM2»aDUR) 


X510 

1535 


1537 


QOC  O 

1539 


1545 


1550 

C«** 

1560 


7«GPACE 
GO  TO  1537 


1562 

1565 

1566 


TWil,C6AL.ACAU. IBC  FOR  EACH  MAN 


1579 

1580 


1582 

Ctt** 


GO  TO  1535 

PT(IE)  «  (3.0*V-AOUR 
LIMIT  PT(IE) 

IF{PT(IE)  .GE-  0.0) 

PT(  IE)  »  0,0 
GO  TO  1539 
TEMl  s  4,0«ADI)R 

{F{PT(1E)  .lev  TEMI)  go  TO  1539 

''^calculate^real  time  of  event  completion 

ZC(!E)  n  12  *  PT(I6> 
lF{ZCnE),LE.TL(lE>)  60  TO  1545 

JSh!kTEMP)*=*USH(KTEMP)  ♦  FLIG  *(ZC(IE)  -  TL<IE)  > 
ZC{ lE)sTL< IE) 

IFIZc(IE).LE.24.0)  go  TO  1550 
pT(IE)  *  24.0-Z2 
ZC(!E)  *  24,0 
CONTINUE 

UPDATE  HSLS, 

ITRV  s  lTRY+1 
lF{  Ie-G^'560)  gO  to  1566 
DO  1565  lal.NiQR 
ITEMsIQRd  ) 

iF{  IE,GE,201)  GO  TO  1562 
CUT( ITeM)sCUT< ITeM)*PT(Ie) 

GO  TO  1565 

CDTUTEM)  aCDTt  1TEM)*PT(  |E) 

CART  (ITEM)  *  CART  (ITEM)  *  ADUB 
EPLI  ITEM)bCUT ( ITEM)/|CuT< IT6M)  +  CDTI ITEM) ) 

continue 

TEMl  «  PT(IE) 

TEM2  '  ZC(IE) 

TEMSsTEMI 
SlDCuO.O 

DO  1580  I  s  1^16 
JJ  s  MATd) 

HSLS(JJ)  »  HSLS( jj)*Tbmi 
Z(JJ)  =  ZCdE) 

CCAU JJ)^*^IEC(KK)  #T|M3*( , 95+UN IFMI ( 0 , 0 ) /lO , ) 
ACAtdJ)  »  ACAL  (JJ)*5eALi'JJ> 

IDCIJJ)  ’  IDC ( JJ )*CCAL (JJ » 

TW{JJ)  9  TW(JJ)*TEM1 
ir(KK  ,EQ.  IPS(  JJH  GO  TO  1579 
CLSDTA( 7* ICLASS)P  CLSDTA< 7» JCLASS >  *  PT(IE> 

TWS{  JJ)  =  TWS(UJ)*PTdS) 

GO  TO  1580 

TWP(Usl)»TWP(  JJ)*PTdE)  ...c. 

CLSDTA(6.ICLASS)e  CySDTA(6f  ICLASS)  *  pTdE) 

SIOC  =  SIDC  *  CCALIJJ) 

IF(SIDC.LE.SIDCMX)  80  TO  l582 
SIDCMX*SIDC 
IDCMXsIE 

TEM2»L0dM  *TEM1 

ACCUMULATE  CML  AND  SAVE  MAX 


200 


1585 


1600 


1610 

1620 

j.63(j 


1640 


1645 

1647 


c  «•<>  «• 
C 


1650 

1655 

C*«« 

1700 


1725 


ir(CMLMX,GE.TEM2)  GO  TO  1585 

CMI.MX»TEH2 

ICMLsIE 

CML?sCML  +  TEM2 

event  hazard  and  sun  rOR  DAY  iTEHJ 

EH  s  TEM1*IH 
TEH  s  TEH*EH 

caiculate  PERFORMaNSE  adequacy 
IF{ ITRY.GT.I)  GO  TO  1645 
IF  (GSTRM.GE.GSTR)  GO  TO  1610 
IF  IGSTR,LE.5';0)  GO  TO  1620 
ES  a  0.0 
GO  TO  1630 

ES  .  {i.o-BE)/<GSTRM*1,0)*GSTR*BE 
30  TO  i63o 

ES  3  (S.O-GSTRI/IS.O-GSTRM) 

TEMl  sTPCOMtun 

IF  (iTYPEILn'^NE.IPStUI))  TEMl  »TSCOM(UI) 

EC  8  2.0*TEM1 
£A  8  2,0»CASP(LI  > 

DO  1640  I  =  1. IG 
JJ  8  MAT{  I ) 

IF  (ITYPEeJJ)^NE,IPS(UJ>)  TEM2  ?T5C0M(JJ) 

TEM2  sTPCOMCjJ) 

EC  »  EC*TEM2 
EA  8  EA*CASP(JJ) 

TEM2  =  FtIG+2';0 
EC  8  EC/TEM2 
EA  8  EA/TEM2 
EFfAMINld.O.GPCC) 

GO  TO  1647 
EC8AMiN1(EC*V2»1.0> 

TEMI  8  EF+EA 

WRITE  (6,1650)  PA>TEMl,ES,EF,EAiEC 
Pa  »  SQRT( <3. o*EC«(TEHi*ES)*ES*TEMl#EF*EA>/l2, 0) 
write  (6,1650)  PAf TiMl/ES.EF.EAfiC 
AP As APA^PA 

COMPUTE  EFFICIENCY  FACTOR 

SEF  ?  SEF  *  (PA*FL0AT{I|SS  )  )/<C ASP (L I )*K7 > 

WRITE  (6,1650)  PA;CASR<U)iK7  .SEf 
F0RMaT(5H  SEF  6F10.5) 

WRITE  (6,1655)  lESS 
FORMAT  (5H  lESS  5ll0) 

IS1E®ISIE*IESS 

calculate  time  FATIGUE  AND  PHYS  CAP  FOR  AUL  MEN  IN  GROUP 
GPCCsO.O 

DO  1740  I  »  IdG 

jj  8  mat ( I ) 

FATIUJ)  s  FBUIUD(HSl,S(JJ)> 

KK  8  ITYPE(JJ) 

TEM2=IEC(KK)  /PWRfUU) 

IF  nEM2,GE.l';0)  GO  TO  1725 
EXER  =  1.0 
SO  TO  1730 

EXER  =  (ZPC”TEM2)/(ZPS-1.0) 


1740 


1750 


1752 

C**« 

C»«e 

1755 


i 

PA 

FDIFF 


IF  (TEMI.LT.O.O)  ifEMl  S  0,0 

MPCC(JJ)*AMAKl(HPeCtJJ),TEMi) 

PCC<JJ)  *  TEMI 
SPCC  »  gpcc+temi 
SPCC  *  GPCC/rUIG 

CAUCULATE  new  CONSyWABLE  LEVELS 
TEMl  =  PT(IE) 

DO  1750  I  =  l^LMAX 
K0NE(I)?IRC(I  )*T|M1 
KONC(l)  *  KONCt I )„KON6( I ) 

CONTINUE 

DO  1752  lal.LNAXl 
KONEK  lUIRCK  I ) 

KONCK  n*!KONCl(  n-KONlK  I) 

CONTINUE 

NO  consumables  used  up 
determine  success  or  failure  for  event 

SUCC  =  YU 

FDlFFsCASPai  )*K7-PA 
iMfdiff.lt.o.oj  SUCC*ESSS 

CLSDTA(i» I  CLASS)*  CL8DTA<lf ICLASS) 
CLSDTAIS, ICLASS)*  CLSDTAISi ICLASS) 
Ci,S0Ta(9.IClASS)*  CLSDTAI  9,  ICLASS) 

IF  (SUCC.EQ.ESSS)  GO  TO  1770 
SfdIFFsSfdIFF*FDIFF 

failed 

DO  1760  I  c  1^ IG 
JJ  a  MAT{ 1 ) 

1760  NOFAlLcJJ)  =  NOFAIL (UJ  )  *1 . 0 
NFALE*NFALE*1 

CLSDTA(4. ICLASS)*  CLSDTAI 4* ICLASS) 

GO  TO  l79o 
SUCCESS 

DO  1780  I  *  1/lG 
JJ  *  MAT(I) 

NU|JJ)»NU< JJ)*1.0 
N0SUC( jJ)aNOSUC( 

KK  f  1 

IFUTRY.EQ.l)  GO  TO  t775 
NSUCP«NSUC2*1 

CLSDTA<3, ICLASS)*  CLSDTA ( 3# I  CLASS)  * 

GO  TO  1790 
NSUG1*NSUC1+1 

CLSDTAlg. ICLASS)!  CL8DT A< 2 *  1  CLASS)  * 
calculate  performance  level  FDR  MfN 
DO  laoo  I  a  1#IG 
JJ  8  MAT<I) 

TeMI  a  NOSUC(JJ)  *  NOFAlL<JJ) 

IF{TEM1  ,6t.  5,0  ,AND.  NOSUC<JJ)  |GT, 

X  PERF(JJ)  a  NOSUC(yj)/TEMl 
1800  CONTINUE 

NPRFM(l)aNPRrM(l)+l 
USHT  a  USHT  *  USH(KTEMP) 


*  1 


1770 


1780 


1775 

1790 


1 

IN 


GROUP 


0.0) 


C 


UPDATE  MAX  STRM  FOR  TJE  DAY 
IFIMAXST.GE.eSTR)  GO  TO  1805 

maxst=gstr 

MAXSTEsIE 
1805  GO  TO  1020 

C»**  COME  HERE  FOR  IGNORE  LOGIC 


I8l5  IGNOR  =  1 

nignr=niqnr*i 

PTj  JE)  =  0.0 

CuSDTAd,  IClASS)*  CLSDTA { 1. 1 C LASS )  *  1 
CtS0TA(5.  ICLASSI*  Cl.9DTA(5ilCLASS)  *  1 
GO  TO  1824 

TEST  for  print  OPTION  AFTER  UPDATING  HOURS  SPENT  IN  ACTIVITIES 

1820  IFUE.GT.200)  60  TQ  1821 
HRSS=PT{ IE)«FLI6*HRSS 
NPPFM(2)snP'’EM(2)*1 

GO  TO  1824 

1821  IFUE.6T.560)  GO  TO  1822 
HRSRsPTUEI^FUIG^HRSR 
NPRFM<31I  =  NPRFM(3)+1 

GO  TO  1824 

1822  HRSEiiHRSE*PTUE)»FLIQ 

NPRFM(4»«NPRFM(4)+1 

1824  IF(ND-IND(4) )  1890 » 1825 1 1830 

1825  IF  (lE.LT. IND{5)»  GO  TO  1890 
1830  IFUE  ,GT.  560)  GO  TO  1850 

IF( IE  .QT.  200)  GO  TO  l84o 
<K  *  1 
LL  «  lE 

IfUGNOR  .EQ.  1)  SO  TO  1880 
Go  ^0  i860 

1840  KK  ■  4 

IURUE  -  20l)/12*l 
IFUGNOR  ,EQ.  l)  GO  TO  i880 
GO  TO  i860 
1850  KK  8  7 

LLsIi-560 

IF( IGNOR  .EQ.  1)  GO  TO  1880 
C»**  PRjNT  event  data 
1860  II  ■  KK*2 

IPET  5  IPEUE) 


TEMl  a  0,0 

IF  UPET*NE.o)  TEMl  9.  ZCUPET) 

WRITE (6, 9860  )  ( TI TIE ( | ) 1 1 sKKi 11 T • Uli ND, I  TER, SUCCi Zl » ST U E ) » I  PET . 

1  TEMi,Z2,PT(  IE)  ,ZCUE)  ,USH(KTEMP)  ,GSTR,GPCC,6PAC6,GASP,PA,|H, 

2  (KONEU  ) ,  1*1,10) /  (KONCU  ) ,  lil.lO) »  (KONEIU  I » Iil#lC?»  (KONCIU) » I 

9860^FORmaT(/1H03A6,I3>5H  DAY,13»11H  ITeRaT IOR, |3,2X,1A6/ 

1  loH  men  avail  »F5.1»15H  START  ALLOWED. F5,lil3H  PRIOR  EVENT, 

2  13, 9H  FINISHED. F6. 2, 13H  EVENT  STARTS . F6 . 2, 6H  LASTS, F6. 2. 

3  5H  ENDS,F6.2,13H  UNMANNED  HRS.F?,2/ 

4  13H  GROUP  STRESSTFSflySH  PHYS  CAP,f5.J.5H  PACSiF4,1.5H  ASP«P5.2 

5  8H  PERF  AD,F6,2.4H  HAZ, F5 , 1, /iX,  17HPER  HR  CONS  USEDtll0F6.0, 

9  /1X,17HPER  hr  cons  LBFTP10F6 . 0 . /IX, 15HUNIT  CONS  USED«10I6, 

9  /lX.lSHUNiT  CONS  lEP^»10I6,/ 

6  lllHoMAN  TYPE  SPEC  LDR  RANK  FATIGUE  PHYS  CAP  HRS  WRKD  CALORIE 


7  cais^hrs  since  Sleep  iduE  hrs  SlEpt  cum  pere  asp) 

DO  1870  I  s  1,1G 
II  «  MAT(I) 

<K  a  iTypEdl) 

TEMl  =  PEA 

IFIKK.Ne. IPS(II))  TEWltESSS 
TEM2  =  BLANK 

IF  (II.EQ.LP  TEM2  »  STAR 


iliRnE(6?9865)  I  I .  KK ,  TEMl ,  TEM2  d  CEll  I  > .  PAT  ( I  U  .  PCC  <  I  U  .  TW  ( I  1)  ^ 
1  cwALdn.ACALi  in»HSusni>.ww{ji).DS{in,PERr<n>.cASP(ii) 

966S  format  n4»  1  5#  2  A6>  I  5 ,  F8 , 3 .  F9 , 3 .  F9 , 2i  P9  i  i  »PlO  •  1  •  Pll  •  1 »  P^  .  i ,  Fiq 
1  F9.2.F5,2) 


1* 


1870  CONTINUE 

30  TO  1890 

C***  PRINT  IGNORE  DATA 
^B80  II  ^  KK'^3 

WRITE(6.908O)  (TITLEH)|I*KK,in.l.t..ND.ITER 

9880  FORMAT(/1H03A6* I3/5H  DAY,I3*11H  HERAT  I  ON » l3 1 
1  18H  IS  ignored  due  TO) 

IFHGIND  .GT.  1)  GO  TO  1881 
WRITE(6.9881J  1ES6 

9881  fORMAT{1H*»63X,20HL0W  ESSENTIALITY  OF  12) 

GO  TO  1890 

1681  IFdGIND  .GT.  2)  GO  TO  1882 
WRITE{6,9882) 

9882  FORMAT!  iH*,63X,1oHNULI.  GROUP) 

GO  TO  1890 

1882  IFdGIND  .GT,  3)  GO  TO  1883 

WRITE(6.9883)  ,  ,,  , 

9883  FORMAT! 1H+,63X, 17HN0  TIME  AVAILABLE) 

GO  TO  l890 

1883  IF  dGIND  .GT?  4)  GO  TO  1884 

WRITE!6,9J84)  (KONTdiKK).lRl*10)  n  .4  un  4  nra 

9884  F0RMAT!lH*i63Xi38HC0l^8UMABLi  (UNiT/HOUR)  BELOW  THRESROLD/1HO»IOF8 

1  0) 

Go  TO  1890 

1884  «K  a  TSl  (IE)  .  . 

9885  FORMH!jH!!6SX.34Sco58iMABiE*{UNlTS)  BILOW  THRiSHOUD/lHO .  10F8 . 0  ) 
C*«*  CHECK  IF  RETRY  OF  EVENT  1$  NECESSARY 

1690  lF(SUCC.EO,ESSS)  GO  TO  1892 
IF{ ITRY.GT.I)  GO  TO  1898 
IFdGNOR  .EQ,  1)  GO  TO  1892 
IF(RTU(IE).E0.3)  go  to  1892 
Zl=ZC<lE) 

Z2*Zl 

NREPTsNREPT*! 

IF(RTU( IE) .EO.l)  GO  TO  1539 
1810  PT( IE)=0,5*PT(IE)*ASD  #DNORM1(0.0) 

GO  TO  1539 

c*«*  increment  event  counter  and  test  for  end  of  DAY 

1892  lEIE  a  INVS!IE) 

KK  a  NPTR! lEIE) 


o  o  o  o  o 


IF(NPTR(IEIE)  .EG.  01  GO  TO  1920 
jr{  NPTRdEIE)  .LE.  200)  GO  TO  1900 
C  KK  *  IE 

IE  *  NPTR(IEfE) 

IF  event  is  NOT  ScWBDULED  we  MUST  PRESERVE  CHOICE  OF  FOLLOWING 
EVENT  FROM  NX  AND  PRB  FOR  CURRENT  EVENT 
DO  1895  I  s  i,3 
NXn.IE)  «  NX(l,KK) 

1895  PREIME)  =  PRB(IiKK) 

GO  TO  850 

C*«'«  determine  next  event  using  NX-  AND  PRB 
1900  TEMI  =  UNlFMlIO.O) 

KK  s  1 

IF  (TEMl.LT.PRBddEJ)  GO  TO  1910 
<K  s  2 

IF  {TEMl,LT.PRB(ldEJ*PRB<2,  IE))  60  TO  1910 
KK  a  3 

1910  IE  *  NX(KK, IE) 

30  TO  850 

calculate  AVe  PHYS  workload  AND  COMPgTANCE  fOR  gACM  CRgW  MgMBeR 

1920  CCC  »  0.0 
ETEM  a  0,0 
TEMP  =  IC 

DO  1930  I  =  IdC 

APW(I)  a  IDC(  I  )/CAL(  U«TW<  I  )/WORKl 
IF  {TW(I)  .QT.  0,001)  gO  to  1921 
TEMP  s  TEMP  -  l.C 
30  TO  1922 

1921  ETEM  a  ETEM  *  PERFIJ) 

1922  IF  (PCOM(I  ).GE,CASPM  ))  GO  TO  l930 

PC0M( I )a(CASP( I )^PCOH(r»  )aNU( I  )#0 , 0017*PCOM< 1) 

1930  CCC  a  CCC*PCOM(  I ) 

CCC  a  CCC/FLIC 
EjEm  =  EtEm/tEmP 

C*a«  PERFORMANCE  EFFICIENCY 

TEMl=(l,0-(uSHT/<wONKl*FLlC)))*<5Ef /FLOAT  (ISID) 

WRITE  (6,1066)  NI GNR, NSUCl. NSUC2 , NFALE 
WRITE  (6,1063)  TEMI 

PEFFaTEMl* (lV0-( float (NIGNR) /FLOAT! NSUCl*NSaC2aNrALE) )) 

C 

C  COMPUTE  EQUIP  AND  HUMAN  STATS  FOR  HUrT 
ATEMaO. 

BTEMaO  . 

CtEmbO  , 

DTEMsO, 

TEMlalQMAX 
DO  1932  lai.lQMAX 

IF  (CDT  (I)  *  CUTtl)  ,GT.  0.001)  GO  TO  I’Sl 
TEmi  8  tEMi  .  1,0 
GO  TO  1932 

1931  CONTINUE 
ATEMaATEM*  EPHI) 

BTEMsBTEM  ♦  CARTII) 

CTEMiCtEm*  COTII) 

DTEMsDTEM*  CUT(I) 

1932  CONTINUE 


AEP1,sATEM/TEM1 
EPEFFsAEPL/CtEM^BTEM 
IF(EPEFF.lT.OV  )  EPEFPfO, 
lF(EPEFr,GT.l7)  EPEFFfl, 

EMTBFsdTEM/(D'>’EM*CTEM) 

EMTTR=BTEM/FL0AT(NR) 

SRLsO  ■7  +  8.571*(ETEM-0,65)«(AEPL-0,9) 

SPUaO  .7*8 .571*(PEFF"0«65)»(EPEFF«»0 .9) 

SGfcMsf (SRL-0,7)*»2*(SPL»0.7)**2)/2,0 
IFJSGEM.LT.O. )  SGEMlfit 
SGEMsSQRT(SGEM) 

IFeND.EQ.NDMAX)  SO  TO  I960 

calculate  phys  incapacities 

NiPl  a  IPUYSNlFLIC/MPl) 

IF  <NPI  ,EO  .0)  GO  TO  i960 
DO  1950  I  a  1,NPI 
II  P  UNIFM1(0;0)»FLIC 
Pldl)  a  0.2*UNIFM1(0,0)  +  0,75 
KK  a  IPUYSN(PID) 

IF  (KK.EQ.O)  PKIl  )al,0 
IF  ikk.GE.1)  KK  a  KK^l 
1950  Pl2in)  a 

CALCULATE  SAFETY  INDEX 

I960  CONTINUE 
THW;,0.0 

DO  1970  1  =  1 ,  IC 
1970  THWaTHW+TW< I ) 

MR  a  TEH/(9.aTHW) 

CML  a  CML/(9.*THW) 

SI  a  9./8.*U.'HR> 

1980  CONTINUE 

TEM2sCN* . 5 
DO  2260  JJai,,  IC 
WHI JJ)*2A.0-Z( JJ) 

IF{WH{ JJ) .LT.TEM2)  GO  TO  2240 
IF<0S(UJ}  .GE:  MAXSL)  go  to  2240 
TEMlaMAXSL-DS( JJ) 

DSI  JJ)aAMINl(DS(UJ)*PH{ JJ)-,5#MAXSL) 
TENlxAMINl(WH(UJ)>TENl>-.5 
IFITEMl  ,LE.  9.0)  GO  TO  2205 
2200  PAT(dJ)  a  0.0 
GO  To  2220 

2205  IFITEMl  ,LT,  1.0)  GO  TO  2210  , 

FATIJJ)  a  faT(JJ)#((1S8, 0-19, 0»T|M1)/140. 0*0, 2aUNIFMl<0.0)) 
GO  TO  2220 

2210  PAT(vIJ)  a  FAT(JJ)*(0.9-0.05#TEM1*0,2*UNIFM1<9.Q)) 

2220  lF{FAT(jj)  ,LT ,  OvO)  FAT<JJ)  a  0.0 
IF(faT(jj)  .qt.  i;o)  fatijj)  ■  i.o 
ACAL(JU)  a  0.0 
TEMI  a  FaTCJJ) 

IFITEMI  .gT.  0.9)  gO  to  2225 
JFlTEMi  ,GT.  0,15)  GO  TO  2224 
HSLSIJJ)  a  53:333333  *  FAT(JJ) 

GO  TO  2260 

2224  HSLS(JJ)  a  14 : 666667aTEMl*5 . 8 
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GO  TO  2260 

2225  HSl,S(  JJ)»AMAX1  (310, 0«TEMl-260. 0,0.0) 

GO  TO  2260 

2240  HSLS(JJ)  s  HSLS(JJ)  »  WHiJJ) 

FAT(JJ)  s  FBUILD(HSLSf JJ) > 

2260  CONTINUE 

DO  2295  !C 

KK  »  IPS(JJ) 

TEM2=IEC(KK)  /PWRtJJ) 

!F  (TEM2,G£.i;o)  go  TO  2285 
EXER  ■  1,0 
GO  TO  2290 

2285  EXER  ?  ( ZPC-TEM2 ) /< ZRC-1 . 0 ) 

2290  TeMl=( ACAL( JJ)/CAt{JJ) )»«2 

TEMl  =  PC(JJ)»PI(UJ)»U,0-{l,0-Kl)*TeMl)*EXER*{1.0-0,l*FAT(JJ)) 

IF  (TEMl, LT. 0.0)  TEMl  s  0,0 

(tEmi.gt.2;o)  tEmi  *  2.0 

2295  PCC(Jj)sTEMi 

IFtNFALE  .NE.  0>  SFOIFFTSFClFF/rUOATt NFALE» 
APA»APA/FL()AT(NSUC1*NSUC2*NFAIE) 

CALL  0UTP2 

IF(ND.GE.NDMaX)  go  TO  2030 
nP*nD+i 
go  to  650 
2030  CALL  0UTP3 

If^fdTAP  .EO,  D  .AND.  (N  .GT.  D)  ENDFIUE  iO 
NPAYS=NDAYS*ND 
If-(  ITER.LT.N)  qO  TO  50 
call  0UTP4 
GO  TO  10 

3000  WRITE(6,3001)  ITEM 

3001  F0RMAT(26hifaTaL  I/O  ERROR  FOR  REC,-  I8) 

STOP 

END 

COUTPl  SUBROUTINE  OUTPi 

subroutine  OUTPi 
INTEGER  PI2 

C0MM0N/QC0M/PC0M(20) ,SC0M<20). IPS(20) . |SS( 20 >  * TPCOM( 20 ) . TSCQMI  20) 
COMMON/SE VENT/ IETYP( 5T0 ),TL{ 5701. 5T( 570 > ,EDCV{ 3,370). I  PEI  570), 

1  TS(570),TSl(570)tNX(3.570>.RTUi570>, IFOI<570), IEFN(570 ) . NIF (570 > 

2  IE0C(3,570»/PRBt3,570),N0SE.NEQRE,NEME.Dl(9> 

CQMMON/OPPl/  lAAt4)  ,*RC  ( 20 )  < PACE  (  20 ) .  ASP <  20 >  iHSLS <  20l , P I  (  20) 

1,P12(20), ICE(20) 

C0MM0N/0PP2/  TW(20)>TWP<20>,TWS(20),DS{20),APW(20>,PCC(20), 

1  CASP(20).  |DC(20) .  NSUCt  .NSg«.NFALE,NIGNR, 

2  KONC(IO)  .KONCKIO),  8 1 ,  CML,  ND,  I  TgR,  NDATS,  MPCC  (20  ) .  PAT  <20  > 

3  .STRM(2o)*CAL<2o)yPWR(2o) »CCALX20)»NU{20)»P6RP(*0)'NPRFM(4) 

4  , aPa.SFD1FF,CLSDTA(1O.40» 
C0MM0N/0PP3/TC,FLIC>NREPT,HRSEiHRSR,HR8S,PEFF, 

1  MAXST,MAXSTE^,USHTfNR|NTE,NE,TiH,CMLMX,ICML,SIDCMX,IDCMX,ICSS 
, COMMON/OPP4/IPL(30),eDT{30),CART{30),CUT(30)4 

1  AEPL.EPEFF,EMTBF?EMTTR,SRL»SPLiS8EM 
REAL  MaXST.IITER  vJITER 

COMMON /IP aRaM/aPST) WORK 1,W0RK2, SLEEP, CN.MAXSL.TFaT.ACP, 
1CALRY.PWRRT,K7,K1;BE‘,AA5P,KON{1O),KONT(1O,1OI,KON1(10>, 

2  KpNTl(10.10).SESTA(i8),RELI(4);N,IET,IND(7)*NOMAX 
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380 


.3WECA 
3HHir 
5HEHURM 
5HEMRPT 
2HMI 
DATA  C1/6H 
Do  380  1=1 
NT!PE( 1  )  =  0 


2HER 
.3HEUA 
,3HEMC 
,4HMURM 
,4HMRPT 


fSHBLR 

t3MBMA 

.2UMC 

/ 


•10 


IHA 
,3HEIP 
.3HEt.O 
,3HEMR 
i2HMA 


,4HELEP 

,3HEM0 

,2HMR 


,4HERPT 
.3HiLI 
MHEMEI 
.2HMO 


,T3(lo) 

TeR(13,10,10) 


,2HEC 
,5WELURM 
,5HELRPT  , 
,3HEMI  I 
,3HMEI 


DO  390  1=1. IC 
K«IPS(  I) 

39q  NT1PE(K)»NTJPE(K>*1 

IF{inD(2)  •Eq';-  0)  return 

9414  rORHAT(l7HlPRINT  OPTION  TW0/3H  CE , 7 x. 2HPC , 5x*4HPC0M . 5 x. 4HSC0M , 5 x* 
14HP  ACE  ,  6X  .  3H  ASP  .  jXi'AMHSl.S  ,  7X ,  2HP  1) 


00  420  I  *  1,4 
XK  *  !aA<  J  > 

If  (XK.gQ.O)  GO  TO  420 

K  ®  K'*’^ 

PCA  9  PC(K) 

PCOMA  =  PCOM(K) 

SCOHA  =  SCOM(K) 

PACEA  =  PACEfK) 

ASPA  =  ASP(K) 

HSLSa  s  HSLS(K) 

PIA  «  PI(K> 

IP  (KK.EQ.i)  GO  TO  41f 
00  410  J  =  2,KK 
X  9  K  +  1 

PCA  P  PCA*PC(K) 

PCOMA  =  PCOMA*PCOM(K) 
SCOMA  «  SCOMA»SCOM(K) 
PACEa  s  paCEa*PACE(KJ 
ASPA  =  ASPA*ASP(K» 
HSLSA  =  HSLSA*»HSL8(Kj 
410  PIA  «  PIA*PI(K) 


TEMl  9  KK 
PCA  »  PCA/TEMl 
PCOMA  »  PCOMA/TEMl 
SCOMA  *  SCOMA/TEMl 
PACEA  =  PACEA/'TEMl 
ASPA  s  ASPA/tEMI 
HSUSA  =  HSLSA/TEMl 

PIA  *  PIA/TEMI  „  „  » 

415  WRITE  (6#9415M  .PCA, RBOMA, SCOMA, PACEA,  ASPA, HSLSA.PU 
94i5  format  ( 13, 7F9;’3) 


420  CONTINUE 

write (6, 9416)  { I ,PC( I > ,PC0M{ I ) »SC0M( I ) , P ACE { I ) , AgP ( 1 1 . HSLS ( 1 1 * 

1  P| n  )  ,PI2< I J,PATU  ),8TRM< I ),CAt{ I )  ,PWR( I), ICE( I ), IPS( 1), T9S(1 ), 


2  1*1. IC) 

9416  rORMATMHo/SW  I  C ,  7X  ,  gHPC .  5X .  4HPC0M ,  5X ,  4HSCOM.5X ,  4HP  ACE ,  6X  ,  3HASP 
l5X.4HHSLS,7X,2HPIi3X,3HPI2,6X,3HrAT,5X,4H5TRM,6X,3HCAL.6X,3HPWR 
26H  1CE,6H  IPS|6H  I SS/< 1 3 . 7r» . 3 , 1 6 , 2F9 . 3 , P9 , 0 , r9 . 3, 3 1 6 ) ) 

DO  ^25  1x1,1? 

425  OUTA{ I )  *  0.0 
DO  430  Ixl.IC 
OUTA(l)  s  0UTA{1)*PC( 1 > 

0UTA(2)  X  0UTa(2>*PC0M(|) 

0UTA(3)  s  0UTA(3>*SC0M( |) 

0UTA(4)  =  0UTA(4)*PACi(n 
0UTA(5)  a  0UTA(5)*ASP(I» 

0UTA(6)  •  0UTA(6)AHSLS( I  ) 

0UTA(7>  8  0UTA(7)*PnU 

OUTA(fl)  •  0UTA(8)*Ft0AT(Pl2n>> 

0UTA<9)  a  0UTA(9)*FATX  I) 

OUTA(IO)  *  OuTA(lQ)*STRMi I  ) 

OUTA(ll)  a  0UTA(11)*CAL(  1) 

430  0UTA(i2)  =  0UTA(  i2)*PWRn) 

DO  435  Ial,i2 

435  OUTA(  I)  a  OUTA{  l>/pLie 

WRITE(6.9417)  (OUT A M J V 1 4 1, 12 ) 

9417  FORRAT(9HOAVGS/MAN/3Xf7F9,3.F6,8,2F9.3.F9,0.F9,8) 

T0UTA(3.K)aT0UTA<3,K)*TWS(I ) 

RETURN 
ENTRY  XXIN 

^IRElaO 
CUTlaO.O 
CARTlro. 0 
CDTIsO.O 
Do  437  1*1,40 
DO  437  Jsil.lO 
437  CUSDTl(j,I)ae,0 
DO  460  181,10 
DO  440  J«1.35 
440  U7ER(«J.  I  )aO'.‘0 
DO  460  KKai,i3 
DO  450  J»1,21 
450  lMTAB(KK,J,n  a  0.0 
DO  460  J«1.10 
460  TIITER(KK,  J,  DaO.O 
RfeTURN 

entry  outp? 

DO  2000  Jai.iS 
DO  1998  1*1,10 
1998  T0UTA(  JiDrO^O 
2000  OUTA(J)aO.O 

DO  2010  1*1.10 
K*!PS(I} 

tem3(  na24.8-DS{  i)-Tw(  n 

IMTaB<1,  I.ITER)  *  IMTaBAI,  J.ITER)  *  PCCd) 

0UTAfl)80UTA(l)*PCC(I) 

TOUTA(l#K)=TDUTA(l,KJ*PGC{n 
ImTAB(2,  I, ITER)  4  lMTABi2,  l.lTgR)  *  TWP(I) 


0UTA(2)s0UTA<2)*TWP(1) 
T0UTA(2iK)=T0UTAt2,K>*TWP( I ) 

IMTAB(3.  I. ITER)  «  IMTABI3.  I, ITER)  *  TWSd) 


0UTA(3)?0UTA(3)*TWSel > 

IMTaB(4,  I, ITER)  •  1MTAB<4,  I,ITER)  * 
OUTA(4)s50UTA  (4)*PS(  I  ) 
T0UTA<4,K)=T0UTA'(4,KI*DS(  I  ) 

IMTAB(5.  I, ITER)  •  ImTAB<5.  I»ITER)  * 
0UTA(5)»0UTA(5)*TEM3(I) 
TQUTA(5,K)sT0UTM5|K»*TEM3(I  ) 
IMTab(6,  I.ITER)  *  IMTaB<6»  I.ITBR)  * 
OUTA{6)=OUTA(6)+rAT{ I J 
TQUTA(6,K)=T0UTA(6|K)*FAT(1  ) 

IMTABd,  I, ITER)  *  IMTABd,  I.lTlR)  * 
OUTA(7)sOUTA(7)*Pl(l  ) 
T0UtA(7,K>=T0UTAt7,K)+PU  I  ) 

IMTA8<8.  I, ITER)  *  JMTAB^B,  l.ITgR)  ♦ 
OUTA<8)sOUTA(8)*APW{'I) 
TQUTA(8,K)=TGUTA<8,K)'^APW(  I  ) 

IMTAB{9,  I, ITER)  *  iMTAB^9,  mTER)  * 

OUTA<9)sOUTA(9)+PCOM{i) 
T0UTA(9,K)sT0UTA(9,Kj+PC0M(I  ) 


DS(1) 
TEm3{  I) 
FaT(  I) 
PKI) 
APWU) 

PCOM(  I) 


IMTABdO,  I.ITER)  »  IMTABUO.  I, ITER)  «  CASPtI) 
0UTA<10)sOUTa(10)*CASR( I) 
TOUTa(10*K)sTOUTa(10»K)  +  CaSP(  I) 
OUTA(11)80UTA(11)  +  IDCM  ) 

IMTABdl.  I.ITER)  »  IHTABdl.  lilTER)  *  PERFd) 
OUTA(12)sOUTA(12)*PERF( n 
TOMTAC  h,K)  =  TOUTA<  ll,K)  +  PERr(  I) 

IMTAB(12»  I, ITER)  f  IMTAB(12i  IHTER)  *  NUd) 
T0UTA(12,K)  s  TOUTAU2.K>*NUd) 

2010  OUTA(13)sOUTA(13)+Ngf P 
DO  2020  1=1»13 
DO  2015  J=1.10 
K=NTIPE(J) 

Ip  (K.NE.  0)  TOUTAd,  J)aTOUTAd,  J)/f-LOAT(K) 


2015  continue 

OUTAd  )*OUTAd  )/FLIC 
2020  CONTINUE 

DAI,Y(1,ND)  =  NSUC1 
DALYI2,ND>«NSUCZ 
DAlYl3»N0)aNFALE 
DA!.Y(4,nD)=NIGNR 


DAUY(5.ND)=0UTA(2) 
DA|,Y(6,ND)sOUTAt3) 
DaLY(7,nD)=0UTA(4) 
DAl,Y(8.ND)sOUTA{5) 
DAI.Y(9,ND)sK0NC(1) 
DAt,Y<10.ND)»KONCt2) 
DAl,Y(ll»ND)aKCINCl3) 
DAl.Y(12»ND)fOUTA<8) 
DAi,Y(13iND)*CM1, 
DALYd4.ND)»OUTAt9) 
DALY(15,ND)  s  APA 
DAl.Ya6,ND)*OUTAt6) 
DAi,V(17,ND)  s  OUTA(IO) 
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DAl,Y(l8iND)sOUTAt7) 

DAI,Y(19,ND)sSI 
DAI,Y{20»ND)  e  NPRFM(3) 

OAt,Y(21»NO)  =  NPRFMHJ 
DALY(22»ND)sNREPT 
PALY{23,ND)  a  HR8R 
DALY{24,Nn)  a  HRSE 
DAUy{25»ND)  a  MAXST 
DAUY(26.ND)  s  CMLMX 
DA|.Y(27,ND)8PEFF 
0Al.y(28.ND)  a  TEH 
DAUy<29,ND)  s  SFDIFF 
PALy{30.ND)  =  NSgei  *  NSUC2 
DAL.y{3l.ND)  e  USHT 
DAUy  (32»ND)  a  IC6S 
IQMAX  =  NEQRF 
DO  2034  lil.IQMAX 
CUTJaCUTI  +  CUT(P 
CDTlaCDTl  ♦  CDT(n 
2034  CArtI=CArtI  ♦  CArtCI) 

MRElsNREi:  ♦  NR 
DO  2032  lal.lO 
ADAl.Y(PND)  a  KONC(I) 

IDAgYl  (l.ND)  a  KONCl  < D 
2032  CONTINUE 

DO  2025  JsiaO 
DO  2025  1=1.12 

2025  TDAl,y(I,J,Np)«TOOTAH,H)) 

DO  2o22  |81»4t) 

DO  2^22  J=l»’ 

CUSDTR(J,  I)sCLSDTR(d*I>  ♦  CLSDTaU.I) 

2022  CgSpiI <J. I )=ClSDTI {J»l )  ♦  ClSDTa(J,I) 

IF(  IND<65  .Gt'IND)  RETURN 
1990  NPRFm(I)  =  NPRRM(l)*Ni6NR 
FNTE  =  NPRfM(I) 

NlSl3NSuCl*NSUC2 

TEMl*HRSS+HRSR+HRSE 

T3{l)sFLOAT(NFALE)/FNyE#100.0 

T3(2)=FUOaT(NSUC1)/FNTE#100.0 

T3(3>sFI,oAT(NSUC2)/FNTE»100.0 

T3<4)=FLQAT{NIGNR)/FNTE«100.0 

T3{5)*FLOAT(NPEPT)/FNfE»100.0 

WRITE (6, 9984)  NDJITERv ( NPRFMI 1) , HI , 4 ) , NREPT , NlSl , NFALE , N IQNR , 

1  TEMl. HRSS.HRSR.HRSE, USHT, APA, SFDIFF. 

1  (TSCD,  Iel,§),Sl»C|,6Ml.,pEFF^TiH, 

2  MAXST|MAXSTE,CMLMX.ICMu,8IDCMX, IDCMXrlCSS 

3  ,(K0NC1(I).I=1,10),  lKONC(I),I«lilO) 

9984  FORMATdSHiREPORT  FOR  DAYISdlH)  ITERATI0NI3^19H  NO.  EVENTS— TQT^ 
1LI4.12H  SCHEDUtEDH»9H  REPAIR|4,12H  EMERGENCYH,  IOH  REPEAI 

2SI4,12H  SUCCESSESHillH  FAItURESM.lOH  IGN0RESH/22H  HOURS 

3WORKiD-— T0TaUF6,1»11H  SCHEOULEDFe , I , 8H  REPAIRF6 . I . 7H  EMgR, 
4F6,1,10H  UNMANNEDF7.I,15H  AVG  PERF  ADEQF5.2,14H  AVG  FAIL  DIFF 
5  FA, 3/  25H  percentage  OF-  — FAILURBFS.I,  15H  SUC( 

6.  1ST  TRYF5.1,15H  SUBC,  2ND  TRyF5.1.9H  IQN0RgDF5.1i’9H  REPEATSF' 
7,1/14H  SAFETY  I NDEXP6-. 2 . 16 1 IH  ),IA6,13H  HENTAL  LOAD 
B  F8,2*10H  PERF  IFF  F9t3;6H  HA2,  F7,0il2H  / 


913H  MAX,  STRgSSr6.2*9H  ON  EVENTt4ijl8H  MAX.  MENTAL  LOADFA.Oi 
A9H  ON  EVENTU,20W  MAX;  CAL.  EXPENDEDF9. 0.9H  ON  iVENTl4»10H  SEA  SI 
BATE  I3/20H  CONS.  BAL.  (UNITS)  1017  i/23H  CONS.  SAL.  (UNITS/HR)  1C 

C  F7.0) 

WRItE(6.9985)  .  . 

9985  FORMaT(125HOMAN  TYPi  PHYSICAL  HOURS  WORKED  SLEPT  IDLE  FATIGI 
IE  health  aVG  PHYS  gOMPETENCE  ASPIRaTION  PERFORM  NUMBER 
2  /ah  no,  ,ieX.4HCAP,AXU2HPRlM,  2ND,25X,5HINDEXi2X,aHW0RKL0Ar 
329X,4HCUM. ♦AXrfSHSUCC. ) 

DO  l99i  iBiflC 

WRITE (6, 9987)  I , IPS M ) , PCC ( 1) 1 TWP ( 1) , TWS < I ) *DS ( I ) , TEM3 ( I ) . FIT ( 1) j 
IPl  { I ) , APW{ I ) ,PCOM( I ) iSASP< I ) .  PERF( 1) .NU( {) 

9987  format (IH  . 1 3^ 1 6 , FlO . 3 . 2F7 . 2 * F7, i , F6 , 1 1 F9 . 2. F8 , 2 . Fl " . 2 , Fl2 . 3 , 

1F12.2.  F9.2,F8,0) 

1991  CONTINUE 

WRITE (6, 9988)  ( OUTA { J  J  *  I  »1  *  10 > . OUTA(  12 )  # OUT AU3 ) 

9988  F0RMAT(9H0AVERAGBS/9H  PER  MANFli , 3 , 2F7 , 2, F? . 1 , F6 . 1*F9 , 2 . F8*2 . 

1  F10,2.F12,3,Fl2.2fF9,-2,F10.2) 

WRITE(6,9989) 

9989  FORMAT(1HO//17HOAYERASES  BY  TYPE/llH  NO  TYPE) 

DO  1995  Ial»10 
K!»NTIPE(  I ) 

If(K-EQ.O)  gO  to  1999 
WRITE(6.9990)  K,  IJ:(T0UTAI  J»  I )  #  J*lil2) 

9990  format (215,  F 10 . 3 i 2F7 . 2, F7 . liPft , 1, F9 . 2. F8, 2,7 10 . 2, F 12 . 3,F12 . 2, 

1  F9.2.F8,2) 

1995  CONTINUE 

WR1TE(6,1996)  < I J CART ( D , CDT ( U , CUT{ I ) , EPL ( I ) , lil . IQMAX ) 

1996  fORMAT(//1HO*25Xf32HDAIUY  EQUIPMENT  PERFORMANCE  DATA  // 

1  27H  IQ  CART  CDT  CUT  EPL  /(I3,4F6,2)) 

WRITE{6,1997)  AEPLtEP|FF,EMTBF,EMTTR,SR|.,$Pl.SBEM 

1997  F0RMAT(//6H  AEPL*F6 .1, 4x» 6HEPEFFiF6 . 2, 4x • 6H|MTBF*F6 . 2 . 

1  4X.6HEMTTRsF6.2MX,4HSRL«F6.2£4Xi4HSPL«F6.2,4X.5HSQEM«F6.2) 
WRITE(6,2i59) 

2159  F0RMAT{//iH0.30Xi24HSUMMARY  BY  EVENT  CLASS  / 

1  85  H  CLASS  TOT  PERF  HRS  PRIM  HRS  SIC  SU61  SUC2  FAIL  IGNORI 
1  PERF  AD  AV  fail  DIPF  ) 

DO  4q  1*1, 4o 

IF(CLSDTA(1,I),UE.O,OJ  QO  TO  40 
DO  30  Js2,9 

30  CLSDTA(J,I)»  CLSDTAfU, I)/CLSDTA(1,I) 

WRITE (6. 2160)  I , CLSDTA <1, I ) , CLSDTA (6. I ) , CLSDTA <7, I ) . CLSDTA {2> I ) » 

1  CLSDTA(3,I ),eLSDTA{4fI ),CLSDTaI5,1 ),CL5DTA(g, J)»CLS0TaI9,1  ) 

2160  F0RMAT(l6,Fi0.0»El0^a>P9.2,3F6*2,F8.2.F9,2,lfl2,2) 

40  CONTINUE 

return 

ENTRY  0UTP3 

2030  WRITE(6,9029)  ITERfNDMAX 

9029  rORMAT(21HlREPORT  FOR  ITERATI0NI3,3H  0FI3,15H  DAY  MISSION— 2 

2  187H  day  number  QP  EVENTS  AVE,  MAN  HOURS  SPENT 

3  . END  or  DAY  AVERAQES . .  INDICE 

4/5X,i25H  SUCl  SUC2  FAIL  IGNORE  PRIM.  SECOND  SLEEP  IDLE 

5  PHYS  LO  MEN  LD  COMP  APA  FAT,  ASP  HLTH  SF 

6Y/) 

DO  2031  J»1,NDMAX 

2031  WRITE  (6,9030)  J,  (DALY ( I , J ) , I . S ) , ( DAL Y( I , U ) • I r12 . 19 ) 


9030  TORMaT  ( I4,1X/3F5.0.P7;o1 4F7.2.24X#  F8 , 2, F8 . 2, F6 . 3. F6 . 2, 
1  F6.2.F5,2»2r6.2) 

FObNDMAX 

TOTbO.O 

DO  2055  I=1,NDHaX 
DO  2055  J=1.4 
TOTaTOT*DAl.YU.n 

2055  lITBR(J»lTER)Bllf|R(d#lTER)*DALy(J. H 

DO  2056  J=l,4 

2056  I  ITER (J, IT6R)xIITER( J»ITER)/TOT«100,0 

DO  2058  Jp5*8 

DO  2057  lal.NDMAX 

2057  IITER(J.  ITER) *I  iter (Jf  ITER) ♦DAl,V(Ji  I ) 

2058  I  ITER(sJ»  ITERJbI  ITERHj,ITER>/FD 


DO  2061  IBI.IO 

JITERCI^ITER)  ?  KONCen/KONd)  *100,0 
ZTEM  *  KONCirn 

JITER(  UlO,  ITER)  •  ZT8M  /KONKI)  *100,0 


2061  CONTINUE 

DO  2060  Jil2»l9 
DO  2059  I*1,NDMAX 

2059  I ITER( J, ITER)*I iTERIdf ITeR)*DAUY( J» I > 

206  0  UTERI  J.  iTERJsIlTERtJ,  ITER>/FD 

WRITE (6. 9031}  ( I J TER ( I , I  TER ) ,1 #1 » I J , < ll T|i(l , I TIR > , Iil2 , 19 ) 

9031  FORMATIlH  /5X ,  22H*— PERCENT  OF  TOTAL— 6X  »l9HAViRAGE  PER  DAY7X, 

1  24h  18XV15HAVERAGE  PCR  DAY/ 

2  5X,3F5.1,F7,l*4r7,2,24X.  2F8 , 2 , 76 , 3 , 76 . 2 , Fft , ? , P5 , 2 i 2F6 ^2 ) 


DO  3olo  J»1.NDMAX 

WRITE (6*3040)  (ADALYtl* J)» I«1*1D) 

3040  F0RMaT(24H  CONS.  BAL*  (UNITS/HR)  10F7,0) 

3010  continue 

WRITE  (6#3050  )  < J1 TER U 1 1  TER ) , J*1 , 10 > 

3050  F0RMaT(24H  PERCENT  OP  ORIGINAL  10F7,3) 

DO  3o20  JflrNDMAX 

WRITE  (6,3030}  { IDALYII I* J) » filtlO) 

3030  F0RMaT(24H  CONS.  BAL.  (UNITS)  1017) 

3020  continue 

WRITE  (6,3050)  (JlTEHtJiITER), Jfll.20) 

WRITE(6, 90315) 

9o3i5  format  (/i3iH  DAY  NUMBER  OF  EVENTS  aVE.  MAN  HOURS  SPENT 
lAX  STRESS  MAX  MEN  LD  PERF  EPF  HAZARD  AVQ  PL  DIFF  NUMBER 
2ANNED  SEA  /  8X;;30HRERAIR  iMER  REPT  REPAIR  EMERGENCY, 63X 
3  5HSUCC. ,SX,9HH0URS,2X,6R  STATE) 

DO  2062  Jbi,NDMAX 

WRITE (6, 90316)  U , t DALY ( I » J ) , 1*20 , 32 > 


Do  2062  Ib20,32 

2062  IITERdUTER)  P  llTERd  ,  ITER)*DALY(  I ,  J) 

90316  F0RMATd4,lX;P9,lfF6il,F6.1.r9,HPl3.1*FlZ.2»Pl2.2 
1  Fl2.3,r8.2,Fl3.3,F8,2,Fi0.5,F3,l) 


f 


UNI 


DO  2063  1*20,29 

2063  IITERd,lTER)  ■  H TERd # ITER )/FD 

UTER  (32*ITEB)  ■  UTER  I32,lTBR>/FD 
IITER(31,1TER}  *  I ITiR(3l, ITER)/F0 
90317  FORM AT (/9H0AVGS/DAYP#.1,2F6.1,F8,1,F13.1 ,712,2,712. 2, 
1  Fl2.3,F8.2,Fl3,SvFl0f2,FlO.2,FS,l) 

WRITE(6,9o3i7}  (  1 1  TERU  ,  I  TER )  *  1*20*32) 
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uR!TE(6*9034) 

9034  rORMAK  ///  aoHOAVERiGES  BY  TVPg  OF  PiRSONNiL/) 

MR1TE(6>9032) 

9n32  FORHaK  laSHn  TYPE  PHYSICAL  HOURS  WORKED  SLEPT  IDLE  Vt 
1TI6UE  health  AVG  PHYS  COMPETENCE  ASPIRATION  PERFOPf 

2  NUMBER/4H  NO . , lOX , 4HCAP . 4X. 12HPR I M .  2ND*25X,5HINDEX.2X, 

3  8HW0RKL0AD,38X,4HCUM, ,4X,5HSUCC, ) 

DO  2065  Isi.NDMAX 

DO  2065  J»l,10 
KsNTI PE ( J ) 

IFIK.EQ.O)  GO  TO  2065 

9033  FORMAT! iH  I  5, 1 6 »FlO . 3* 2^7 . 2. F7, 1, F6 . 1 »F9 . 2 , F8 . 2i FlO . 2 , Fi2 . 3 4 
1  Fl2,2.10X,F9^2,r8i2> 

DO  20^4  KKsl.12 

2064  T} iTERIKK, j,lTER>'Tt!TER(KKi J. ITER) *TDALY( KK. Ji  I ) 

2065  continue 

DO  2067  Jsl.IO 
KsNTIPEIJ) 

IF(K.EQ,0)  GO  TO  2067 
DO  2066  I=lill 

20  66  TIITER!  I  .J.  I.TER)*T  |  ITERH  .  Ji  ITER)/FD 

WRITE(6f 999l)Ki J»!T1 ITERI I » Ji ITER) • Illil2) 

9991  format (21 5  , FlO • 3 . 2F7, 2 . F7 . F6 . 1 .F9 , 2 . F8 , 2 , FIO . 2 . Fl2 *  3 . Fi2 . 2 • 

1  1QX.F9.2.F8.2) 

2067  CONTINUE 
2070  CONTINUE 

T3{1)*CUTI/(CUTI*CDT1) 

T3{2)sCARTI/FL0AT(NREI) 
rEmTB*REMTb  *  T3(l) 

REMTRsREMTR  *  T3(2) 

IF{ InD(7>.EQ.O)  return 
WRITE(6,9275) 

9275  FORMaTOOHOAVERAGES  PgR  DAY  FQR  EACH  MAN/) 

DO  20^2  I»lil2 
2072  OUTAtUsO.O 

DO  2080  I«l'  IC 
DO  2075  Jflil2 

IMTAB(J»I.ITEB)  f  IMTAB(J,MTER)/FD 
2075  OUTA{J)«OUTA(J)*IMTA0(J,I,ITER) 

2080  WRITE(6,9991)  I , I  PS ( 1 1 , < I MTAB ( Ji I . I TER) . J«1 » t2) 

DO  2082  l«l»12 
2082  0UTA( I >«OUTA(l )/FLIC 

WRITE(6.9996)  (0UTA<I),  1^1.12) 

9996  FORMATdOHoAVERAGES 

1  Fl0i3,2FT,2,F7.1*F6.1»F9.2,F8.2iFlO.24Fi2,3*Fi2.2. 

1  10X»F9.2,F8,2) 

WR1TE(6,9997)  T3(l)i  T3A2) 

9997  FORMAT(//7HOEMTBF»  F8t3# 5X* 6HEMTTRi  F8,3) 

WRITE<6.2159) 

DO  2084  U1,40 

IF(  CLSDTI (1, H .LE.  0,0)  GO  TO  2084 
DO  2083  J»2,9 

208,  CLSDTKJ.Dp  CLSDTKJ,!)  /  CLSDTId,!) 

®  WRITE<6,2160)  I , CLSDT I ( li I ) » CLSDT I { 6. 1 ) . CLSDT I ( 7» I ) . CLSDT 1 12» I) , 

1  Cl  SDTI(3.I).GlSDTI(4»1)4ClIDTU5,I),Cl8DTI(S,1),ClSDTI(9,I) 

2084  CONTINUE 


RETURN 
ENtRT  0utP4 

fliter^iter 

WRJTE{6,9555)  ITER,80MAX 

9555  F0RMAT{16H1RUN  SUMMARY  F0RI3,14H  ITERATIONS  0FI3,12H-DAY  MISSION/ 

1  127h  iter  number  QF  EVENTS  AVE.  MaN  mOURS  SPENT 

1  end  or  DAY  AVERAGES . .  INDICES 

2/5X,i25H  SUCl  SUC2  FAIL  IGNORE  PRIM,  SECOND  SLEEP  IDLE 
3  PHYS  LD  MEN  LP  COMP  APA  FAT,  ASP  HLTH  SFT 

4Y/5X,22H  — PERCENT  OP  TOTAL— 6X , ISHaVSRaGE  PER  DAY7X, 

5  24M  laxnSHAVERAGE  PER  DAY) 

DO  21o5  I»1i32 
21D5  OUTAlDaO 

DO  2110  I«l.  iter 

WRITE(6i9556)  1  ,  1 1  1  T8R ( J • I > i J al . S ) » ( 1 1  TER { I ) i J»12»19 ) 

9556  PORMAT(lX. l4,3F5,l»F7fl|4F7.2,24X|  2F8 , 2 • F6 . 3 • F6 , 2 » F6 , 2 » F5 . 2 » 
12F6,2) 

DO  2108  J«1.32 

2108  OUTaI J)aOUTA( J)*IITBR( J»  I) 

Do  2109  J=1.10 

OUTa(  J)  s  OUTB(j)  *  dlTER(j,n 

OUTB  IJ^IO)  =  OUTB<J*iO)  *  JITER{d*10  iP 

2109  CONTINUE 

2110  CONTINUE 

DO  2115  J"l,32 

2115  OUTAU)iOUTA(  J)/FLITSR 

WRITE <6, 9557  5  ( OUT  a M ) i I *1 . 8 ) . I  OUT A I  I ) . I *12* 19 ) 

9557  format  (19HOAVERaGES/ITERATION/ 

1  5X,3F5.1i  5F7.2»24Xi  F8 . 2. F8 »2.F6 , 3. F6#2»F6 . 2, FJ . 2» 

2  2F6.2) 

DO  2150  1*1. iter 

WRITE  (6.3O7O)I,<UITER(J.I).J*l*10)  . 

3070  F0RMAT(6H  iter  I2>44M  CONS,  BAL*  (UNITS/HR)  IERCENT  OF  ORIGINAL 

1  10F7.3) 

WRITE  (6,30603  I,  ( J ITERI J , 1) . J*ll , 20  ) 

3060  F0RMaT(6H  HER  I2',44M  CONS.  BAL,  lUNlTS)  PERCENT  OF  ORIGINAL 
1  10F7.3) 

2l5o  CONTINUE 

WRITE(6,3080)  ( OUTB< ! ) , I* 1, 10> 

3080  F0RMAT(37H  AVERAqE  CONSUMABLE  USAGE  (UNITS/HR)  ii6X,tOF7,2) 

WRITE  (6.30903  ( OUTB ( I ) i I *11 , 20 7 
3090  F0RMaT(34H  AVERAGE  CONSUMABLE  USAGE  (UNITS)  ,19X,10F7,2) 
WRlTi(6,91l5) 

9115  format  (//131M  ITER  NUMBER  OF  EVENTS  AVE.  MAN  HOURS  SPENT  f 

lAX  STRESS  max  MEN  LO  PERF  EFF  HAZARD  AVQ  FL  DIFF  NUMBER  UN 

24ANNED  SEA  /  SXjSSHREPaIR  EMER  REPT  REPAIR  EMERGENCY, 63X, 

3  5HSUCC, ,5X,5HH0URS,6H  STATE) 

WRITE(6,903i6)  (IX IITER( JiI) .J*20»32) ,i*1,iTER) 

WRITE(  6. 903183  (OUTAH  >  1 1^20 . 321 
90318  FORMAT(l9HOAViRAGES/|TERATION/ 

1  8X,3F6.1,F9.1,Fl3XHl2.2,Fl2.2,ri2.3,F8,2,fl3.3,F8i2.F10.2»F5.i: 
DO  2120  1*1,11 
DO  2120  Jsl.lO 
2120  TOUTAd  ,U)  =  0.0 

9120  FORMaT(///30H0aVERaGE8  BY  TYPE  OF  PERSONNEL/) 

WRiTE(6,9120) 


WR I T E  ^  6  »  9558 ) 

9558  FORMAT  (  125HO  TYPE  PHYSICAL  HOURS  WORKED  SLEPT  IDLE 

ITIGUE  HEALTH  AVG  PHYS  COMPETENCE  AfPIRATIQN  PERFORM 

2  /14X  ,4HCAP.4X.12HPRIM.  2ND»2§X,5H1NDEX,2X, 

3  BHWORKLOAD,30X,4HCUM,- > 

DO  2125  1*1, ITER 

DO  2124  Jal.lO 

ir(NTlPE(J).EO.O>  GO  TO  2124 
DO  2123  K=l.il 

2123  T0UTA(K,  J>*TDUTa(K,  J)  +  TI  ITERIK'i  J,  I ) 

2124  CONTINUE 

2125  CONTINUE 


DO  2140  Jsl»10 

ir{NTIPE{J)  .EG.  0)  GO  TO  2140 
DO  2130  lsl»ll 

2130  TOgTA(I.J)  »  TOUTAdiUJ/FLITER 

WRITE{6.9993)  hI»  ( TOUTA ( I ,  JJ  ,  I«1 , 11 ) 

9993  F0RMAT{5X,I5/  F10.3i2F7.2ir7.1«F6,l.F9,2,F8«2,ri0,2,Fl2,3,rl2,2 
1  F9.2,F8,2) 

2140  CONTINUE 

WRITEt6,2l39) 

DO  2144  1*1,40 

inCLSDTRd-n.LE.O.oJ  GO  TO  2144 
DO  2143  J«2,9 

2143  CLSDTR(J»I)  •  CLSDTRIUd)  t  CLSDTRd*!)  «  •« 

WRITE (6. 21 60)  1  ,  CLS0TR< I , I ) . CL^PTR < 6, 1 > , ClSDTR ( 7 , 1 > , CLSDTR ( 2» 1) » 

1  CLSDTRI 3, 1) ,CLSDTR<  41 1 ), CLSDTRD 5# I > ,CLSDTR( |, J ) ,CLSDTR(9, 1 ) 

2144  •  <  OUT  A  ( 5 )  tOUT  A  ( 4 ) ) 
T3(2)  =  0UTA<2)*<0UTA15)*0UTA{5I) 

T3(3)  =  T3(1)/(T3<1)  4  T3<2)> 


T3(4)  s  REMTB 
T3(5)  s  REMTR 

T3(6)  s  T3(4)/{T3t4)  4  T3<5)) 

T3(7)  s  SQRT<0.5»(T3{'5)»«2  ♦  T3,(6)**2)) 

WR|TE(6.9140)  (T3<I),t*l»7) 

9140  FORMATdHO  ,9HHMTBF  4 ,  F8 . 3 ,5X  .BHHMTTR  »,F8,3, 

1  5X,9HHAVAIL  i,F8.3<^  ..  ,, 

2  1X,9HEMTBF  f , F8 . 3 , 5X| 8HEMTTR  ■ , F8 . 3,5X rSHEAVA I L  i,F8.3/ 

3  lX,9HSYSAVAlLs,F8,3) 


RETURN 

END 

CFBLD  FUNCTION  FBUttD 

function  FBU1LD(H> 

HSLS»H 

TEM1*0.2«UNIFM1(0.0J 

IF(HSlS,lT.8^0)  go  To  20 
IF|HSLS,LT.19.0)  go  to  10 

reUlLD«{HSLS-»229.0)/310»0*TBMl 

GO  TO  5000 

10  FBUILD*<15,0*HSLS»109,OJ/22O,O*TEMI 
GO  TO  5000 

zi/n/initufH/niffnutt/t 

20  FBUIlD  ■  0.01875  •  HSLS  -  0.1  ^  TEMl 


5000  IF(FBUILD  ,GEV  0,0)  GO  TO  5002 
FBUJID  s  0.0 
GO  TO  5555 

5002  IFIFBUIID  .GTv  1,0)  PBUItD  ■  1*0 
5555  RETURN 
END 

CIPUT  FUNCTION  IPUY9M 

FUNCTION  IPUTSN(PAR) 
TEST«EXP(.PaR) 


K«0 

Y»UNIFM1(0.0) 

1000  JF(y .LE.TEST)  60  TO  5000 
KiK*l 

ypy*unifmi(o:o  ) 

GO  TO  1000 


5000 

CPSCAP 


IPUVSNsK 

RETURN 

END 


SUBROUTINE  PSgAP 

subroutine  PSCAP{ I aa.pcdoh.pscon)  . 

DIMENSION  I  AA(4  )  .PCDtiM<6?  ,  PSCOMI  40  )  i TEM ( 3 )  ♦  L t3 ) , Ul  < 3t , D ATR (3  ) 
DATA  DaTR/0.95,0,75|0,60/ 


NNel 

DO  350  1*1.4, 3 


DO  340  J*1.4 
L15IAA(J) 

TEM1»L1 
KI  =  I 

DO  110  K«1.3 

TEM(K)sTEMl*PCOUM<Kn 

L(K)sTEM(K) 

Kl=Kl+l 

110  Ll*Ll-L(K) 

IF{1.1.EQ,0>Go  to  275 
KI=I 

DO  130  K41,3 

TgM(K)*TEM(K)-Fl.OAT{ti.<Kl) 
IF(TEM(K> .Lt?( ,5))  GO  TO  130 
L.(K)al.(K)*l 
UlsLl-l 

IF(L1.EO.O)GO  TO  275 
130  CONTINUE 

DO  135  Kal.3 
135  IL(K)*K 

DO  150  K«l,2 
KK*3-K 

DO  140  11*1. KN 

1F<TEM(II  ),GE''.TEMtIl*t))GO  TO  140 

TEMPsTEMt  ID 

UTsUKII) 

TEMUn»TEM<ll*l) 

TEM( ll*l>«TEMP 
LLIinsLUdUi) 

LKlUDlLT 
140  CONTINUE 
150  CONTINUE 


DO  160  Ksl.3 
KK=LU(K) 

|.{KK)aL(KK)+l 

JF(L1-EQ.0)G0  to  2^5 

160  Continue 

KKsLUd) 

L(KK)=L(KK)+L1 
275  DO  310  K’l'S 
K  K  ^  L  ( ^  ) 

IF(KK.EQ,0)G0  to  310 
temp  =  DATR(K) 

DO  305  Nll»KK 

PSCOM(NN)sAMlNl( .99»TEMP*DN0RM1 (0 , 0 i 03) 

305  NNaNN^l 
310  CONTINUE 
340  continue 
350  NN=2i 
return 

END 

cinpijt  Subroutine  input 

SUBROUTINE  I NPUT {  1  TER fK ASE )  _ 

comhon/prsnel/wt,sigwt,ppfq,ppmo.ppUq.spfq»spmq.spuo* 

lMPJ,PID.ZPC,PTT(10iilO).MEN(10»4),ND8,IOS(6»20) 
C0MH0N/lPARAM/APSTyW0RKl,W0RK2.SLBiP.CN,MAx8LiTFAT,ACP , 
lCAlRV.PWRRT^7:Ki;BE,AASP,KeN(lD>.K0NT(10.10I.K0Nl(10>, 

2  KONT1(10.10).SESTA(18)|RELI(4)jN,IET,IND<7>,NDMAX 

COMMON/EQREVNT/  1DF{3o)iRELH(3q)iCITR(57o)»TUI<3o)»  IRE(3p) 
COMMON/EEMER/ART(10>,  Asf)l<10)»DTE(lO)»  lESSE<jy  ,NREQE(10,10). 

I  lPDmE(IO)  *  I  RCE(10>  10) » I  RCEldOi  10)  I  TSE(IO)  .TSIl(lO)*  IHE(IO) . 

^COMMON/ETYPE/ADUP,  AS0*lisS,NRE9110)  , LOOM »KE ,  INT ,  IRCdO )  .  IRCKIO)  . 
%S5i0N5sl!ENr/I^ip?»‘^r!Tl:*l70I.|T(5701,IDCy(3.|70).lP6(!^ 

1  TS{57o)  ,TS1(  570)  /NX{3»570)  »RTU4  570)  ,IF0n57Q) ,  IiFN(  57o )  ,N IF<  S'O  ) 

0  T  Bfir  ^  ^  j  57 0  ^  1 P  RB  1 3 1 57 0  )  f  NO  SE  p  NEQ  RE  #  N^ME  I  D I  { 9  ) 

DIMENSION  FPiait  •FP2<248)  p  * ( 9 ) ♦FP3 (2200  )  p  IP3{2200  )  p 

1  FP4(  3660) ,  IP4{3800)  ♦FPS<  600) »  IP5(2000)  .DUMYdt)  i  IDES ( 121 
dimension  PTTTdO'ilO) 
dimension  ADUBI0<55) 

EQUIVaLENCE< ADURtOfAOUR)  , 

EQUIVALENCE  <  WT  ,FP  1) ,  (MEN ,  IPl)  »UPST  ,FP2>  ,  (N 

1  (FP3,FP4),(PP3,Fp5),dP3,IP4>,nP3,IP5),(IP3,lG0Q).;FP3,GBQ) 

INTEGER  TS,TSl»RTU*TSB.TSEitTSR»TSRl 

REAL  MPIiMAXSL.K7^K1, I  EC » LOOM » IHi I RC . KON » KONl i KONT . KQNTl 
REAL  lECE, IME, IRGE.tODME 
NAMELlST/PERSNL/NFPliFPliNlPl, IPI 
NAMELlST/PARAM/NrP2,rP2,NlP2iIP| 

NAMiLlST/SCHEVT/NFP3.FP37NIP3. IP3 
NAMELIST/EQREVT/NFP4iFP4»NlP4» IP4 
NAMELIST/EMREVT/NFPS.FPS^NIPBi IP5 
NAMElIST/TYPE/  NFP5|FP5|N1P5# IP5 
JERR  s  0 

IF(1TER  ,GT.  1)  GO  TO  225 
100  NFP2  s  0 
NIP2  ■  0 
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READ  (5»PARAM} 

lF((NFP2.NE.248).QR,»NIP2.NE.9n  GO  TO  9010 

101  WRITE(6,8loo)  (rP2{  1  M?1 , 248)  M  IP2{  1) ,  I«l, 9 ) 

8100  format  (7H1APST  bF13,31,8H  WORKliflA .  1, 8H  M0RK2sri4  ,1 , 8H  SLEEP*F 
114,1»8H  CN  iF14.1#8H  MAXSLfFl4 , l/THOTfAT  fri3,2»8H  ACP  »F14, 
22»8M  CAl,RYoPi4,o?8H  PWRRTlFl4*ii  8H  K7  ■Fl4,2,8H  K1  iFl4,2/ 
37HO0E  «ri3.2,8H  AISP|F14,2// 

314HOKON(1-10)  ia0f9,e/15H  KONT<1-10)  f  /IQ a4X , 10F9. 0/ > * 

4  /i4H0KONl(l-10)  •  10F9.O/  15H  kONTI(I-IO)  I  /lOi lAK , 10F9 , 0/ ) » 

5  13H  SESTA(O.-O9)il0r5.2/llHORE[.I  <l*4)i4F8.2/ 

6  3H0N*I5,6H  lETfI5,llH  I ND ( 1-7 ) §7 13 ) 

200  IF(KA8E  ,l.E.  1)  GO  TO  201 
DO  205  Ill, 10 

DO  205  Jfl.lO 
PTTfl.J)  f  PTTTdjJ) 

205  CONTINUE 

201  NFPl  a  0 
NlPl  a  0 

READ  (5»PERSNL) 

IF  ((NFPi.NE.iiD .OR. (NIPi.NB.l^l) )  60  TO  9020 
iFfKASE  ,NE.  1)  GO  TO  209 
DO  208  lil.lO 
DO  208  Jil.lO 
PTTT(1»J)  •  PTT(IVJ) 

208  CONTINUE 

209  DO  220  I, I, 10 
DO  210  Ji2|10 

PTT{ J. I)aPTT(J, I)fPTT(J-l,  I) 

210  continue 

220  CONTINUE 

225  IFClNDd)  ,E0V  0  .OR,  ITER  .GT,  %)  GO  TO  299 

WRITE  (6,8200)(FPl(l)»I  »  1,1H),(  IPIII),!  f  1,161) 

8200  format  (7M1WT  aF7,l#8H  SIGHTTF7. 1/7H  PPFQ  ar7,2,8H  PPMQ  sF7.2, 
18H  PPUQ  aF7,2/7H  SPFQ  iF7,2,8H  SPHQ  fF7,2,8H  SPUQ  •F7,2/7H  MPl 
2  =F7.2,0H  PID  »F7,1#8H  ZPC  ar7.2/14HOPTT(l-10, 1)  tlOPS.aaSH 
3PTT(1-10,2)  *10F5>2/14H  PTT(1-10,3)  ilQFS.Z.lSH  PTT(1-10,4)  RIOFS 
4,2/14H  PTT<1-10,5)  »10F5.2,15H  PTT(1-10,6)  |10FS.2/i4H  P7T(1-10,7 

5)  ai0F5,2,l5M  PTT<l-10,e)  tlOF5.2/l4H  PTT(1A10,9)  »10F5.2»15H  PT 

6T(  1-10, 10  )alOF5.2//13HOMEN<  1-10  il)ilOU.14H  MBNa-10,2M10l«/l3H 
7MEN<1-1O,3)  =  1014,14H  MEN!  1-10 , 4 )glO 1 4/15HON0,  OP  SHlFTSs.U/, 

813H  IDS(l-6,  Da, 614, 5X,12HlD8a-6,  2)t,6I4,5X,12HIDS(l-6,  3)f6!4/ 
913H  lDS(l-6,  4)a,6I4*JX,l2HlDS(I-6,  5 ) § , 6  14 , 9X, lEH IDSa‘-6 ,  6)i6l4/ 
A13H  IDs(l-6,  7)a,6I4,fX,i2HI0s(I-6,  8 > i , 61 4 , 5X, 12H I Dgl 1-6,  9)i6I4/ 
B13H  IDS(l-6,10)»,6l4.fX,i2HIDS<I-6»ll)i,6l4,SX,12HIDS(l-6,l2)»6I4/ 
C13H  lDS(l-6,l3)a.6I4,5X,l2H10S({-6,14)i.6l4,9X,12HI0S(l-6,lS)a6l4/ 
Dl3H  IDS(i-6,i6)a,6l4*lX,12HlpS(i-6,17>i,6l4,5X,12HIDl(l-6,l8)f6I4/ 
E13H  IDS(l-6,l9»a6l4,5X,l2HID8{l-6,20)a6l4) 

299  IF(ITER,EQ.l)  GO  TO  800 

rewind  10 

RIAOIIO)  NFP4,NIP4,N8QRE,<FP4<I),Ill,NFP4),(IP4{I>,l»liNIP4» 

GO  TO  301 

300  NFP4  »  0 
NIP4  a  0 

READ  (5,EQREVT) 

NEQREsIPA(I) 

IF(N  .LE,  1)  GO  TO  301 


REWIND  10 

WRITE  (10)  NFP4,N1P4,NEQRE»  (FP4{n»  I«l.NFP4),tIP4{I  >,  i*l>NIP4> 
301  «K  a  2 

I4M  s  1 

ir  eJND(i)  .NE.  0  .and.  iter  .I.E.  D  writs  (6.8329) 

8329  rORMAT{lHl,90X.27HEQtltPMENT  REPAIR  EVENT  DATA/ 

1  lilH  IQ  DESCRIPTION 

2  TSR.  TSRl  RELH  TUl  IRE  / 

3  9BH  TYPE  NX(l-3)  PRB(l-3)  RTU  lEDCll*3)  IE0CV(l-3) 

2  IPE  IFOI  lEFN  DTR) 

DO  35o  1  «  i.NEORE 
DO  305  Jsl.12 
IPES{ J)pIP4(KK) 

305  KKaKK+1 

TSR  «  IP4  (KK) 

TSRl  =  IP4  (KK  +  1) 

IREX»IP4(KK+2) 

IREI I  )  =  ^REX 
IEFNXsiP4(KK*3) 

KKbKK+S 

REt,H{  I  )aFP4(MM) 

TUl(  h=FP4(MM-fl) 

C  DTR( I )=FP4(MM*2) 

Jb200*(I-1)*12 

ITEMsJ 

DO  310  JJ=1.IREX 
JsJ*l 
TS( J)aTSR 
TSl(J)aTSRl 

leTYP(J)  »  IP4  (KK  *  1) 

IPE(J)  =  IP4  (KK  4  2J 

IF( IPE( J) .NE.O)  IPE< J)?IPE( J)4lTEM 

NX  (l.J)  »  IP4  (KK  *  3) 

NX  12. J)  »  IP4  (KK  *  4) 

NX(3.J)  B  tP4  (KK  4  5) 

NX(1. J)sNX(i, J)*ITEM 
NX(2, J)*NX(2, J)+ItEm 
NX(3. J)«NX(3. J)4lTEM 
RTU(J)  =  IP4  (KK  4  6) 

IFOKJ)  B  1P4  (KK  4  7) 

IEFN( J)«IEFNX 
DTR(J)sFP4(MM) 

PRB(i. J)  a  FP4  (MM  *1) 

PRB(2.J)  »  FP4  (MM  *  2) 

PRB(3.J)b  FP4  (MM  4  3) 

IE0C(l,J)»Fp4tMM44) 

IEDC{2,J)*FP4(MM*5) 

IEPC(3, J)fFp4(MM46) 

EDCV(1. J)«EP4tMM47) 

EDCV(2. J)*FP4(MM*8) 

EDCV(3, J)=FP4(MM49) 

ST{J)  B  0.0 
TKJ)  =  24,0 
KK8KK47 
MM4MM+10 


220 


310  CONTINUE 
JJsJ 

KK  s  KK  ♦  1 
C  MM  ?  MM  ♦  1 

UsJ-IrEx^I 

IF  (IND(l)  .NE,  0  aND,  ITER  .LE,  1)  WRlTEt6,8330) 

1  MDES,TSR,tSRl#RELH{I  I»TUI(1  )‘i  IREX  #  ( I  ITYR<  J) » <NX<K ,  J )  ,Kf  1, 3 )  ♦ 

2  {PRB(K,  J)  ,K«1,3  j  JRTUI J)  ,nEDC(K»«J)  |K«1,3)  # 

3  (EDCV(K,  J)  ,KPl,3)f  IP»B(  J).  IFOI  ( J),  lEFNI  J) ,  OTR  ( J) ,  J»  1 1 ,  JJl 
8330  FORM*T(lHO/I3*2X.12A6f I3» I6*F10«*»F7.2* 15/ 

1  (IH  ,I3.lX,!3.2l4f3F5v2;2I2.  2I3i iX , SFlO . 3, 13. 1 5 . 1 11 .F5 .2) ) 

350  CONTINUE 

399  iniTER.EQ.l)  GO  TO  400 
NFP5^NEME»3 

NIIP5aNEME«47 

READ (10)  <FP5( I )> Ill»NFP5),(IP5(I ). lil.NIPS) 

GO  TO  401 

400  NFP5  a  0 
NIPS  •  0 

READ  (S.EMREVT) 

NEME  ■  NFP5/3 
NFP3«N1P5/58 

IF((NFP5.NE.NEME»3),0R.(NIP5,NE^NFP3*58)>  GO  TO  1040 
IF(N.GT,i)  WRlTi<io)  (FP5(l)i  lii,NFP5),(lp5tn,lBi,NlP5) 

401  KK  1  1 
MM  s  1 

IF  flND(l)  ,NE.  0  .AND.  ITER  .LE,  1)  WRITEi6. 8429) 

8429  FORMaT(1H1,90X,20HEMERGENCY  EVENT  DATA/18H  K  IDENTIFIER/ 

1  23H  ND8E  art  ASDB  DTE . 58XalOHIRCI( 1-10 ). IflX , 3Hf8E , 3X , 5HLODMI 

2  2x#5hIESSE  / 

l/llxIllHNREQE(l-10)|8X.51X,12HIRCIl  ( 1-10 ) . 8X , 4HTSE1.4X, 3HIHE/ 

3  11X,10HIECE<1-10)  /IH  ) 

DO  450  I  ■  1,NEMI 

ART(I)  «  FP5(KK) 

ASDEd)  9  FP5IKK  ♦  1) 

DtE(I)  a  FP5(KK  *  2) 

DO  405  Jil.l2 
IDEs(J)slR5(MM) 

405  MM«MM+1 

lESSK  I  )sIP5(MM) 

DO  410  J  PI. 10 
MM  S  mm  *  1 

410  NREQE  (J.I)  «  IP5<MMJ 
MMiMM*l 

LODME(  DPlPStMM) 

00  420  JPl.lO 
MM  a  MM  ♦  1 

420  iRCi  (J.I)  »  1P5(MM) 

MM  «  MM  *  1 
TSEII)  a  IP5  tMM) 

DO  485  Jal.lO 
MM  a  MM  *  1 

425  IRCEkj.I)  a  IPS  <MMJ 
TSIl(I)  1  IPStMM  *  1  ) 

IHE(l)  a  IPS  (MM  *  2J 
MM  a  MM  ♦  3 


DO  430  J  *>1.10 
lEOKJ.I)  »  IP5  (HM) 

430  MM  s  MM  *  1 

NDeE(I)  =  IP5  {MM> 

MM  ■  MM  *  1 
KK  *  KK  +  3 
lETyP(  I*560)s!-1 
ST{I*560)ss  0, 

TL(!*560)  >»  24.0 
TS{I*560)=  TSE(I) 

TSin>560)=  TSEKI) 

RTUn^SdO^sl 
lF0ni  +  560  )  =  l 
IEFNn*56(l>sO 
Nir(I*560)si 
lEDCd.  I*560>*0. 

IEDC<2, I*560)*0, 

|EDC(3. I*560)»0. 

IF  (  INDd)  ,NE.  0  .AND,  ITER  .Li,  D 
IWRITE  {  6.6449)  I,IDES»NDBE<  n  ,aRT(  I)  ,ASDE(  I)  .DTE(  I)  J  IRCE(  J.U  .J^l 

1  .lO).TSE<l).LODME(IJf 

2  lESSEd). 

3  (NREQE{j.n.Jil.lB>.  (IRCIKj.I  »,  jil.lO.TSEini. 

4  IWE(n,(IECE(J,I>,j|l,10) 

6449  rORMAT(l4.8X,12A6/l6,F5,2.F7.2,F5,2.8X.10r7,0. IS.FS.O. 17/ 
110J3.2X,10I7, I2.F8.0/10F6, 0) 

450  CONTINUE 

601  IF{ITER,6T.1)  go  TO  851 
NFP5«0 
NIP5*0 

ReAd(5.TYPe) 

IF(JND(l).NE,e  .AND, iter, LE.l)  HrITE{6.9601> 

9601  FORMAT(1H1/50X.15HEvENT  TYPE  DAT4/18H  J  IDENTIFIER, 

1  6lX,26H  ADUR  ASD  CLASS  NIOR , 8X , 8HIQR(l-6)  / 

2  /38H  lESS  LOOM  KE  tNT  IH  NREQ 
3(l-10),22X,9HlRC(l-10)/l5X,9HIEe(l-10>.36X,19HlRCl<l-10>) 

NTYPESsNIP5/89 
MM  t  1 
<K  ■  1 

DO  650  Iil.NTYPES 
DO  605  Jil,12 
IDES(J>«IP5{MH) 

605  MMSMM+l 

IESS»IP5<MM) 

MMsMM^l 

ADUR  *  FP5  (KK) 

ASD  1  FP5  (KK  *  1) 

DO  610  Jsl.lO 
NREQJJ)  s  IP5  (MM) 

610  MM  •  MM  *  1 

IODM  =  IPS  (MM) 

•KE  »  IPS  (  MM  ♦  1) 

INT  *  IP5  (MM  *  2) 

MM  ■  MM  *  3 
DO  6l5  J9l,10 
IRC  (J)  *  IPS  (  MM) 
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IRCl(J)  8  IP5  (MM  ♦  10> 

615  MM  ■  mm  *  1 
IHsIP5{MM*10) 

MM«MM+11 

DO  620  J8l,10 

lEC  (J)  *  IP5  (MM) 

620  MM  f  MM  ♦  1 

MIQ«  ■  IPS  (  MM) 

DO  625  Jsl,6 
MM  1  MM  ♦  1 
625  JQReJ)  »  1P5  CMM) 

ICL,ASS  «  1P5  (MM  ♦  1) 

WRITe(12» 1 ,ERR89060  )  ADURIO 
IF ( |ND(1) . NE . 0  ,AND,  iTER.LEil) 

1  WRITE(6»9650>  I , IDE8| ADUR. ASD. ICLASS,NIQR» < IQR< J) . J81.6) » IESS. 

1  LOOM.KE.INt. IH,  (NRE9(J).J5l*10)i  ( IRC( J> jJlliiO) .  UECt J) 1 J»l#10 

9650^^6rMAT(M4  !»!)</ i2A6T  2f7,3»l6  ,'l6.6l4/I5,F8,0,2l4,r4,0*10l3* 

1  10r7.0/10F5.0,9X,-10l7) 

MK  ■  KK  ♦  2 

650  MM  ■  MM  ♦  2 

651  RETURN 
ENTRY  DINPUT 

iF< iter.eo.i)  go  to  fOO 

RBaO(IO)  ND,NOSE>(DuMY( I), l8l.il) 

475  NFP3»N0SE»11 

NIP38N0SE*11  , 

READ (10)  (FP3( I >;I*1»NFP3) . ( IP3( I ) i I*1.N1P3) 

GO  TO  5oi 

500  N^P3  s  0 
NlP3  «  0 

READ  (5.8500)blD,NOSE,  (DUMY{  n  .  I  *  l.lD 
8500  format  {213.11A6) 

HEAD  (5.SCHEVT) 

IF { (nPP3,nE . M0SE»11) .0R| INIP3. NE .NOSE»ll) )  GO  TO  9050 
IF(N.LE,1)  GO  TO  501 
WRITE (10)  NO.NOSEf(DUMYn  )  .lililX) 

WRjTEdO)  (rP3(  I)»  lit.NFPS).  {  I  PS  (  I ) .  I»1 .  N I P3  ) 

501  KK  8  1 
MM  ■  1 

DO  560  I  ■  l.NOSE 
jETYPd  )  =  IP3(!<K) 

!PE(I)slP3(KK*l) 

TS( I  )*IP3(KK*2) 

TSK  1)  =  IP3(KK*3) 

RTU( I  )8lP3(KK*4> 

JFOl  (  n8lP3(KK*5) 

NIFd  )sIP3(KK*6) 

IEFN( I)»IP3<KK*7  ) 

KKfKK^B 

TL,(  I  )8PP3(MM) 

ST(I  )»FP3(MM*1> 

MM8MM*2 

DO  510  J  «  1.3 
NX{J,l)8lP3(KK) 

PR0(J, 1)8FP3(MM) 


po  520  j»l»3 
IEOC< J. I )sFP3(MM) 
iDCV(J.I)«rP3{MM*3) 

520  MM  ■  MM  ♦  1 
MM  ■  MM  *  3 
560  CONTINUE 

iFtlNcd)  .EO"  0  .OR,  ITeR  .8T.  1)  QO  TO  4999 
WRITE  <6,8501}ND,NOSE*(DUMY(n,I  |  1,11) 

8501  FORMAT  { IHI .  90X ,  20HSCHEDUI.ED  EVENT  DATA/ 

14H  ND»I3,5X,5HN0SEp13,4X,11A6//83H  IE  lETYl  TS  TSl  IFOI  NIF 

2  IEFN  NXd-3)  PRB{l-3)  IPE  RTU  ,5X,8HTL  ST/ 

DO  8600  I  ■  1/NOSE 

3  5X,9HIEDC<1-3).9HEDCV(1-3)) 

WRITE!  6, 8560)  METYPU  > ,  TS(  I ) ,  TSl H  > ,  |FOH  1 1 ,  NIF  (  I ) .  1 EFN <  1)  , 

1  (NX(J,I).J=lf3),'(PRB(J,I),Jfl,3>,|PE(n*RTU(l),TU<n»ST{I), 

2  (IEDC(J,I  ), J  =  i,3)» 

2  (EDCV(J, I  ), J?l#3) 

8600  CONTINUE 

8560  FORMAT(iHo/iH  , 1 311 8 » 1 4 , 1 5 , 3l 6* 31 5 , 3F6 . 2. 2 1 S , IX , 2F6 . 2, / 

1  IH  ,4X.3I3 ,3F10  ,3) 

4999  CONTINUE 

5000  IF  UERR.EQ.O)  RETURN 
STOP 

9010  IeRR  =  1 
WRITE  (6,9011) 

9011  format  <30H1ERROR  IN  FOLLOWING  INRgy  L ISj/ESRPROGRAM  WILL  NOy  CONt 
lINUi) 

WRITE  (6,PARAM) 

GO  TO  200 
9020  l^RR  a  1 

WRITE  (6,9011) 

WRITE  (6,PERSNL> 

GO  TO  300 
9030  IERR  »  1 

WRITE  (6,9011) 

WRITE  (6,EQREVT) 

GO  TO  400 
9040  lERR  »  1 

WRITE  (6,90111 
WRITE  (6,EMRgVT) 

GO  TO  601 
9050  lERR  a  1 

WRITE  (6,9oil) 

WRITE{6,SCHEVT) 

GO  TO  5000 
9060  WRITE(6,9012) 

9012  FORMAT(20H1D'^  A,  ERROR--QUIT  ) 

return 
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